![]() |
![]() ![]() ![]() |
acSQLQueryThread, acHTTP and acProportionalImage components.
|
type
|
TacSQLQueryDoneEvent = procedure(Sender: TObject; DataSet: TDataSet) of object;
|
|
property OnDone: TacSQLQueryDoneEvent;
|
The OnDone method occurs when the dataset (specified in Query property) has been successfully opened and can be used to retrieve results of SQL query.
|
procedure TForm1.LogQueryDone(Sender: TObject;
|
DataSet: TDataSet);
|
var
|
Field1: Integer;
|
Field2: String;
|
begin
|
with DataSet do
|
try
|
Field1 := Fields[0].AsInteger;
|
Field2 := Fields[1].AsString;
|
except
|
end;
|
end;
|
RunSQL and Abort methods;
|
OnException event.
|