小弟的需求是將select後的query,使用filterrecord的event比對存在 a,b兩個欄位中的字串是否有使用者keyin的字串,使用者每keyin一個字元就filter一次 所以在 query 中的 FilterRecord 裡寫了下面的程式 ---------------------------------------------------- procedure TFormB.HintQFilterRecord(DataSet: TDataSet; var Accept: Boolean); Var QStr:String; begin QStr:= UpperCase(Query.FieldByName('A').asString Query.FieldByName('B').asString); Accept:=Pos(UpperCase(Trim(Grid1.Cells[Grid1.Col,Grid1.Row])),QStr)>0 ; end; ------------------------------------------------------------- 這程式在P4的機器上跑沒問題,完全不會delay,但在PIII上跑. 每keyin一個字元,就要等一秒鐘,推測是資料量(大概一兩千筆)與CPU速度的問題 請問各位是否有更有效率的解決方式

你可試用個 TTimer Interval 設 500 (半秒,或你喜歡的值) onTimer 時 SetFilter 在 Edit 的 onChange : Timer1.Enabled := false; Timer1.Enabled := true; 重新計時 這樣做若使用者 Key 一串字時中間不會浪費時間 filter 記錄，只有最後一宇元停半秒後才 filter 對只輸入一個字元或輸入很慢每一下超過半秒的人來說，這樣做會更慢(因多等半秒) 但對一般人輸入一串字來說這會加快速度 若半秒太多也可減少數字

1. 拿來過濾的 DataSet 改用 ClientDataSet
   DataSet -> DataSetProvider -> ClientDataSet (但記憶體需求會變大).    2. 盡量減少不必要的 function 使用, 如 Trim.    3. 用 不分大小寫的字串比對 Function
   如 AnsiContainsText(const AText, ASubText: string): Boolean;

發表人 - Mickey 於 2003/06/12 21:17:30

Justmade版主定時query的方式之前真的完全每想過 真是不錯的idea,會實作看看. 對於Mickey版主 1. 拿來過濾的 DataSet 改用 ClientDataSet 的部分,小弟不太懂這有什麼差別耶 寫了快一年的delphi 還都沒用過clientdataset 跟query有啥不同,書上好像也都沒提到過 能否請mickey版主提示一下 謝謝

引言: 寫了快一年的delphi 還都沒用過clientdataset 跟query有啥不同,書上好像也都沒提到過

書上好像也都沒提到過？不會吧..... ClientDataSet 大部分應用在 多層式資料系統, 大致上其具有特性 : 1.不需存取資料時, 與資料庫是處於離線狀態. 2.讓 Application 可輕易的'完全'控制. 3.存於記憶體. ... 如果書上都沒提, 運用本站搜尋, 應該會有所收穫.