mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 04:28:30 +02:00
18 lines
229 B
ObjectPascal
18 lines
229 B
ObjectPascal
{$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.
|