0
点赞
收藏
分享

微信扫一扫

type VP=procedure; VPOfObj=procedure of object;

曾宝月 2023-06-17 阅读 20


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.



举报

相关推荐

0 条评论