mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
29 lines
363 B
ObjectPascal
29 lines
363 B
ObjectPascal
{ %opt=-gh }
|
|
|
|
{$MODE OBJFPC}
|
|
|
|
program test02;
|
|
|
|
{$STATIC ON}
|
|
|
|
type
|
|
|
|
TDummyClass = class
|
|
IdName: AnsiString; static;
|
|
end;
|
|
|
|
var
|
|
|
|
o: TDummyClass;
|
|
|
|
begin
|
|
HaltOnNotReleased := true;
|
|
TDummyClass.IdName := 'Test';
|
|
TDummyClass.IdName := TDummyClass.IdName + 'a';
|
|
o := TDummyClass.Create;
|
|
WriteLn('Here we go');
|
|
o.Free;
|
|
WriteLn('We did it!');
|
|
end.
|
|
|