Delphi程序設計之--慣用法
發布: 2008-5-20 09:43 | 作者: 不詳 | 來源: Codesky.net | 查看: 22次 | 進入領測軟件測試網論壇討論
{ No. 3 }//事件指針做參數
//對于列表等的讀取使用事件指針的方式
type
TDataSetEvent = procedure (DataSet: TDataSet; AIndex, ACount: Integer) of Object;
//從 TADOQuery派生而來的類
procedure TMyADOQuery.EnumRecord(AWhereStr: String; APro: TDataSetEvent);
begin
Close;
SQL.Clear;
SQL.Add(’Select * From Table1’);
if AWhereStr <> ’’ then