Bei leerer Tabelle erhältst du eine Fehlermeldung, wenn du mit Repeat Until arbeitest, weil versucht wird, auf den ersten Datensatz zuzugreifen. Mittels While-Schleife wird der Block nur ausgeführt, wenn ein Datensatz existiert.
Delphi-Quellcode:
x := 1;
DM1.DataModule1.LLHITable.Close
DM1.DataModule1.LLHITable.FetchAll := True;
DM1.DataModule1.LLHITable.Open;
DM1.DataModule1.LLHITable.First;
While Not DM1.DataModule1.LLHITable.Eof Do
Begin
DM1.DataModule1.LLHITable.Edit;
DM1.DataModule1.LLHITable.FieldByName('LLHI_ID').AsInteger := x;
DM1.DataModule1.LLHITable.Post;
DM1.DataModule1.LLHITable.Next;
Inc(x);
End;
DM1.DataModule1.LLHITable.Close;
Edit meint noch: Wenn die Tabelle sehr groß ist, kommt es auf Geschwindigkeit an. In diesem Fall empfiehlt es sich, eine Feld-Variable zu deklarieren und ihr das Feld zuzuweisen, weil sonst jedesmal die Spalte anhand des Feldnamens gesucht werden muß, was Zeit kostet:
Delphi-Quellcode:
Var
Feld : TField;
Begin
Feld := DM1.DataModule1.LLHITable.FieldByName('LLHI_ID');
...
Feld.AsInteger := x;
Und wenn du am Ende deiner Procedure den zuletzt in der
DB gespeicherten Wert benötigst, setzt du x am Anfang auf 0 und incrementierst es vor der Zuweisung an das Tabellenfeld.
-Versuch es mal ohne with
-Next führt implizit einen Post durch.
Das ist mir jetzt aber neu. Ich hab solche Konstrukte schon sehr häufig verwendet, insbesondere mit Firebird und IbDac von Devart ... Oder meinst du etwa, daß das Next innerhalb des With-Blocks anders reagiert als
DM1.DataModule1.LLHITable.Next;
?