请教自动生成 TADOStoredProc 的 OnFetchComplete 急!!!(100)

ps:=TADOStoredProc.Create(nil); ps.Connection:=db_Connection;; ps.ExecuteOptions:=[eoAsyncExecute]; ps.OnFetchComplete:=psOnFetchComplete;??? 这句怎么写 ps.ProcedureName:='select_all;1'; // ps.Parameters.CreateParameter('@ws_no',ftstring,pdinput,4,Unassigned); ps.Prepared:=true; ps.ExecProc;

ps.OnFetchComplete 的过程原型为:TRecordsetEvent = procedure(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus) of object;也就是 你在一个类里写一个函数的参数跟 procedure(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus) 一样的, 就可以把过程名(即地址)赋给 ps.OnFetchComplete 了

多人接受答案了。