mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
7e0a5aec4c
compatibility with some other Pascal compilers) (mantis #14812) git-svn-id: trunk@13918 -
28 lines
480 B
ObjectPascal
28 lines
480 B
ObjectPascal
type
|
|
stdstrlong = string;
|
|
|
|
procedure PackStr // Convert string to packed array
|
|
( InStr: StdStrLong;
|
|
var OutArr: packed array of char);
|
|
var
|
|
i: longint;
|
|
begin
|
|
if (low(outarr)<>0) or
|
|
(high(outarr)<>5) then
|
|
halt(1);
|
|
if (instr<>'abc') then
|
|
halt(2);
|
|
for i:=1 to length(instr) do
|
|
outarr[i-1]:=instr[i];
|
|
end;
|
|
|
|
var
|
|
a: packed array[5..10] of char;
|
|
begin
|
|
packstr('abc',a);
|
|
if (a[5]<>'a') or
|
|
(a[6]<>'b') or
|
|
(a[7]<>'c') then
|
|
halt(1);
|
|
end.
|