Iterate on TUniTable with delete

[testpresta]

Hello

Look at this code:

Code: Select all

MyUniTable.first;
while not MyUniTable.eof do begin
    if (MyUniTable.FieldByName('some_field').asInteger>=300) then MyUniTable.delete;

     MyUniTable.Next;
end;

I want to delete some records of a table, that is accessing with a TUniTable component.

My question is: If i delete a record, does Next and Eof will work properly ?

Thanks

[AlexP]

Hello,

Yes, on both deletion and insertion of records, the Next method and the Eof property work correctly..

[CristianP]

If you delete a record the cursor will be positioned on the next record if there is one. If not (you deleted the last record) it will be positioned on the last record.
In this case I think you want something like this.

Code: Select all

MyUniTable.first;
while not MyUniTable.eof do begin
  if (MyUniTable.FieldByName('some_field').asInteger>=300) 
  then MyUniTable.Delete
  else MyUniTable.Next;
end;

Best regards,
Cristian Peta

[AlexP]

Yes, the Delete method moves the pointer to the next record after the deleted one (if the deleted record is not the last one).