Feld in Tabelle nachträglich füllen

[Perlsau]

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.

Zitat von mkinzler:

-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; ?