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