求函数指针的详细用法

Question

找了很多资料都没找到，哪位高人有？请给我一份。
[email protected]

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TMyFunction = function(const param: Char): integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure test(p: Pointer);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}function MyFun(const p: Char): integer;
begin
  result := Ord(p);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  r: integer;
begin
  r := TMyFunction(@myFun)('A');
  ShowMessage(inttostr(r));
end;procedure TForm1.test(p: Pointer);
begin
  ShowMessage(IntToStr(TMyFunction(p)('A')));
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  test(@myfun);
end;end.