type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
class procedure hello;
procedure helloNonClass;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Sayhello;
begin
showmessage('procedure Sayhello');
end;
procedure TForm1.Button1Click(Sender: TObject);
type
VP=procedure;
VPOfObj=procedure of object;
var
p:VP;
pobj:VPOfObj;
begin
p:= Sayhello;
p;
pobj:=hello;
pobj;
pobj:=helloNonClass;
pobj;
end;
class procedure TForm1.hello;
begin
showmessage('class procedure TForm1.hello;');
end;
procedure TForm1.helloNonClass;
begin
showmessage('procedure TForm1.helloNonClass;');
end;
end.
type VP=procedure; VPOfObj=procedure of object;
最新推荐文章于 2023-02-27 16:57:03 发布