TFPList.foreachcall 轉換成delphi |
|
答題得分者是：pedro
|
|
qaz5422367
一般會員   發表：3 回覆：0 積分：0 註冊：2015-10-15 發送簡訊給我 |
各位高手大大：
我想知道Delphi 中TFPlist的Foreachcall要怎麼實用？ 看了許多文章後，仍然對此function不是很理解， ///////////////////////////以下為定義//////////////////////////////////////////// type TListCallback = procedure(data,arg:pointer) of object; TListStaticCallback = procedure(data,arg:pointer); public procedure ForEachCall(proc2call:TObjectListCallback;arg:pointer); overload; procedure ForEachCall(proc2call:TObjectListStaticCallback;arg:pointer); overload; /////////////////////////////////////////////////////////////////////// 有高手能夠解釋一下Foreachcall是在做什麼事，與如何應用？ 感激不敬！
------
闕于強 |
|
pedro
尊榮會員  發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
Hi 闕于強,
使用它需要帶參數給一個CallBack的程序, 底下片段程式示範給你參考 [code delphi] procedure TForm1.FormCreate(Sender: TObject); var testlist: TFPObjectList; obj1,obj2:TObject; begin testlist := TFPObjectList.Create; obj1:=TObject.Create; obj2:=TObject.Create; testlist.Add(obj1); testlist.Add(obj2); testlist.ForEachCall(CallBack,nil); testlist.Free ; end; procedure TForm1.CallBack(data: TObject; arg: pointer); begin Memo1.Lines.Add(Data.ClassName); end; [/code] ===================引 用 qaz5422367 文 章=================== 各位高手大大： 我想知道Delphi 中TFPlist的Foreachcall要怎麼實用？ 看了許多文章後，仍然對此function不是很理解， ///////////////////////////以下為定義//////////////////////////////////////////// type TListCallback = procedure(data,arg:pointer) of object; TListStaticCallback = procedure(data,arg:pointer); public procedure ForEachCall(proc2call:TObjectListCallback;arg:pointer); overload; procedure ForEachCall(proc2call:TObjectListStaticCallback;arg:pointer); overload; /////////////////////////////////////////////////////////////////////// 有高手能夠解釋一下Foreachcall是在做什麼事，與如何應用？ 感激不敬！ |
發表時間：2015-10-30 10:42:12
IP:220.130.xxx.xxx 訂閱
系統時間：2025-01-23 0:59:26
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |