mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-10 17:42:38 +02:00
38 lines
414 B
ObjectPascal
38 lines
414 B
ObjectPascal
unit fdt_classof;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
TClassOfMy = class of TMy{declaration:fdt_classof.TMy};
|
|
|
|
{ TMy }
|
|
|
|
TMy = class(TObject)
|
|
public
|
|
class procedure Run;
|
|
end;
|
|
|
|
procedure DoIt;
|
|
|
|
implementation
|
|
|
|
procedure DoIt;
|
|
var
|
|
c: TClassOfMy{declaration:fdt_classof.TClassOfMy};
|
|
begin
|
|
c:=nil;
|
|
c.Run{declaration:fdt_classof.TMy.Run};
|
|
end;
|
|
|
|
{ TMy }
|
|
|
|
class procedure TMy.Run;
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|
|
|