Delphi 함수 포인터를 가리키는 포인터

1865 단어 Delphi
type
TFunc=procedure;
procedure MyFunc;
begin
ShowMessage('Run my func');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ptr:Pointer;
func:TFunc;
begin
func :=  MyFunc;
func; //ok
ptr := @@func;  //   ptr := @func;       
TFunc(ptr^);
end;

하지만 이렇게 해도 된다.
procedure TForm1.Button1Click(Sender: TObject);
var
ptr:Pointer;
func:TFunc;
begin
func :=  MyFunc;
func; //ok
ptr := @func;  
TFunc(ptr);
end;

후속...

좋은 웹페이지 즐겨찾기