mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 16:38:25 +02:00
14 lines
177 B
ObjectPascal
14 lines
177 B
ObjectPascal
uses sysutils;
|
|
type
|
|
ttest=class
|
|
end;
|
|
ttestclass=class of ttest;
|
|
var
|
|
i:ttest;
|
|
tt:tclass;
|
|
begin
|
|
tt:=ttest;
|
|
write(i is tt);
|
|
end.
|
|
|