My Delphi Code: db.Open; Query.Transaction.StartTransaction; d1:=now; Query.SQL.Text:='select i0,c1,f1,f2,f3,f4 from test'; Query.Open; while not Query.Eof do begin if (Query.FieldByName('I0').AsInteger<0) or (Query.FieldByName('C1').AsString='???') or (Query.FieldByName('F1').AsString='???') or (Query.FieldByName('F2').AsString='???') or (Query.FieldByName('F3').AsString='???') or (Query.FieldByName('F4').AsString='???') then Caption:='ok'; Query.Next; end; d2:=now; showmessage(inttostr(Query.RecordCount)+':'+inttostr(MilliSecondsBetween(d2,d1))); Tran.Commit;
------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, SlashDot.org! http://sdm.link/slashdot _______________________________________________ Firebird-net-provider mailing list Firebird-net-provider@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/firebird-net-provider