mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-11 13:22:34 +02:00
14 lines
170 B
ObjectPascal
14 lines
170 B
ObjectPascal
program bug28876;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Classes;
|
|
Var
|
|
AClass : TClass;
|
|
begin
|
|
AClass := TObject;
|
|
AClass.ClassName{declaration:system.TObject.ClassName};
|
|
end.
|
|
|