Nach Löschen Positionen neu durchnummerieren

[shmia]

Delphi-Quellcode:

p := 1;
QueryRechnungsdaten.first;
while not QueryRechnungsdaten.Eof do
begin
   QueryRechnungsdaten.Edit;
   QueryRechnungsdaten['Position'] := p;
   QueryRechnungsdaten.Post;
   inc(p);
   QueryRechnungsdaten.Next;
end;