可否將 TFilterRecordEvent 傳至 一個function 中當functon |
答題得分者是:wameng
|
danajn
一般會員 ![]() ![]() 發表:14 回覆:29 積分:8 註冊:2002-08-01 發送簡訊給我 |
1.procedure AAA(aDs:TDataset;vFilterRcord:TFilterRecordEvent)
這種方式可實作嗎 ??? 2.試著寫一個
procedure FilterSUBAP_FMD(DataSet: TDataSet; var Accept: Boolean) ;
begin
Accept:= dataset['xx']='xxxx'......
end;
3.需要將 FilterSUBAP_FMD 傳入AAA 中,請問各位大大 ,該如保完成 ^^ 謝謝
|
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi danajn,
procedure FilterSUBAP_FMD(DataSet: TDataSet; var Accept: Boolean) ; begin AAA(DataSet,FilterSUBAP_FMD); Accept:= dataset['xx']='xxxx'...... end;
------
Fishman |
wameng
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
danajn
一般會員 ![]() ![]() 發表:14 回覆:29 積分:8 註冊:2002-08-01 發送簡訊給我 |
|
Fishman
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi danajn, 是不是這個原因?
procedure TForm1.AAA(aDs:TDataset;vFilterRcord:TFilterRecordEvent); begin // do some thing end; procedure TForm1.FilterSUBAP_FMD(DataSet: TDataSet; var Accept: Boolean) ; begin AAA(DataSet,FilterSUBAP_FMD); Accept:= dataset['xx']='xxxx'...... end;
------
Fishman |
wameng
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
不好意思!做一下補充! 會出錯的原因,也就是帶入的事件並需為 Class Procedure
TFilterRecordEvent = procedure(DataSet: TDataSet;
var Accept: Boolean) of object; 也就是該事件必須為 物件的方法。 若在執行上有困難。{無法定義物件的方法}
可以用
type TShitClass = class private procedure FilterSUBAP_FMD(DataSet: TDataSet; var Accept: Boolean) ; end; Var Shit : TShitClass;代替。 發表人 - wameng 於 2004/11/17 17:29:03 |
danajn
一般會員 ![]() ![]() 發表:14 回覆:29 積分:8 註冊:2002-08-01 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |