各位大大: D6+MsSql_2000 :將被連續使用之procedure(放置Combobox中); type TForm1 = class(TForm) ComboBox1: TComboBox; Button1: TButton; procedure Button1Click(Sender: TObject); private procedure aa; procedure bb; . . . procedure kk; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //連續使用private PROCEDURE procedure TForm1.Button1Click(Sender: TObject); var i :Word; S,S1 :String; begin //以下方式是小妹我想的方式 for i :=0 to ComboBox1.Items.Count-1 do begin S := ComboBox1.Items[i]; S1 := Copy(S,0,Pos('_',S)-1); //但這出來是字串非TProcedure 如何能展現如下方是Procedure的方式 end; 非使用如下之方式 { aa; bb; cc; . . . kk;} end; doll_candy

------
doll_candy

用 MethodAddress 就可以了 http://delphi.ktop.com.tw/topic.php?topic_id=56827 老問題了

使用 MethodAddress 要注意的是 aa、bb 等 procedure 要宣告在 published 區段 以您原本貼的為例, 就是在 private 區段之前 參考: http://delphi.ktop.com.tw/topic.php?topic_id=56827 http://delphi.ktop.com.tw/topic.php?topic_id=53049 http://delphi.ktop.com.tw/topic.php?topic_id=41180

引言: 使用 MethodAddress 要注意的是 aa、bb 等 procedure 要宣告在 published 區段 以您原本貼的為例, 就是在 private 區段之前

感謝兩位前輩之指導,又了一個指令,更明白裏面的含意 doll_candy