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

no message

Browse Source
This commit is contained in:
florian 2004-11-03 10:30:48 +00:00
parent ac7f9351f0
commit 741f42c3b0
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/test/tobject4.pp Normal file
View File

@ -0,0 +1,17 @@
{$mode objfpc}
type
to1 = class
a1 : array[0..100] of byte;
s1 : ansistring;
a2 : array[0..100] of byte;
s2 : ansistring;
s3 : ansistring;
end;
var
o1 : to1;
begin
o1:=to1.create;
o1.destroy;
end.