mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 20:47:24 +01:00
15 lines
192 B
ObjectPascal
15 lines
192 B
ObjectPascal
{$mode delphi}
|
|
uses sysutils;
|
|
type
|
|
ttest=class
|
|
end;
|
|
ttestclass=class of ttest;
|
|
var
|
|
i:ttest;
|
|
tt:tclass;
|
|
begin
|
|
tt:=ttest;
|
|
write(i is tt);
|
|
end.
|
|
|