21. August 2008 08:52
ADORecSet := ADOConnection.Execute(SQLString,RecordsAffected,RSOption);
IF ADORecSet.RecordCount.ISINTEGER THEN BEGIN
IF EVALUATE(iRecordCount,ADORecSet.RecordCount) THEN
IF iRecordCount = 0 THEN BEGIN
....
21. August 2008 09:18
21. August 2008 13:22
WHILE NOT (ADORecSet.EOF OR ADORecSet.BOF) DO BEGIN
do_some_operations;
ADORecSet.MoveNext;
END;