fpcsrc/tests/tbs/tb0464.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %version=1.1 }
{$mode delphi}

var
  a1 : Array of Byte;

begin
  SetLength(a1,2);
  a1[0]:=65;
  a1[1]:=66;
  WriteLn(AnsiString(a1));
end.