fpcsrc/tests/test/tclassinfo1.pp


1
2
3
4
5
6
7
8
9
10
11

program tclassinfo1;

{$apptype console}
{$mode objfpc}{$H+}
uses
  Classes;
begin
  WriteLn(TObject.ClassInfo = TypeInfo(TObject));
  WriteLn(TPersistent.ClassInfo = TypeInfo(TPersistent));
end.