先抱歉，不知正確的說法為何 描述如下： 我如何以一個 string 的內容，如 aa : string; aa := 'SO101'; 然後以 aa 的值來呼叫 SO101 的 function or procedure 其中 SO101 為一個 function or procedure 且 aa 的值會變更 如何在執行時期以 aa 的值來呼叫對映的 function or procedure 呢?? 希望知道的人幫幫我，謝謝!!

參考看看 如何執行 類別內的 某函數, 而不用函數名? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=39987 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

ystzou 你好:    範例如下, 參考看看 :

type
  TMyPorcdure = procedure (Sender: TObject) of Object;      TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    Procedure P1(Sender: TObject);
    Procedure P2(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    { TForm1 }    procedure TForm1.P1(Sender: TObject);
begin
  showmessage('In P1 Procedure');
end;    procedure TForm1.P2(Sender: TObject);
begin
  showmessage('In P2 Procedure');
end;    procedure TForm1.Button1Click(Sender: TObject);
var m : TMyPorcdure;
    s : string;
    p : Pointer;
begin
  s := 'P1';
  p := MethodAddress(s);
  if p<>nil then begin
    TMethod(m).Code := p;
    TMethod(m).Data := Self;
    m(Sender);
  end
  else raise Exception.CreateFmt('Procedure %s not exists',[s]);
  s := 'P2';
  p := MethodAddress(s);
  if p<>nil then begin
    TMethod(m).Code := p;
    TMethod(m).Data := Self;
    m(Sender);
  end
  else raise Exception.CreateFmt('Procedure %s not exists',[s]);
end;

啊...pgdennis已經回了...慢了一步...... 發表人 -

非常感謝 二位的回答，謝謝..