paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 16:39:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-11-09 13:41:46 +00:00
parent 9e8353e232
commit 34627e01fb
1 changed files with 12 additions and 0 deletions

12
tests/tbs/tb0464.pp Normal file
View File

@ -0,0 +1,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.