Memo2.Lines speichern

[Neutral General]

Hallo,

Ich musste deine Frage nur 10x lesen oder so aber ich glaube ich weiß was du für eine Antwort brauchst:

Benutze eine for-Schleife! Es ist nicht garantiert dass ein Memo eine gewisse Anzahl von Zeilen hat.
Stattdessen kannst du nur alle verfügbaren Zeilen in die Datenbank schreiben:

Delphi-Quellcode:

uses
  Math;

procedure TForm1.SQLSAVETimer(Sender: TObject);
var i: Integer;
begin
  if (CheckBox2.Checked = true) and (Memo2.Text <> '') then 
  begin 
    Einsaetze.Append;
    for i:= 0 to Min(Memo2.Lines.Count, 6) - 1 do
    begin
      Einsaetze.FieldByName(ListBox1.Items[i]).Text := Memo2.Lines[i];
    end;
    Einsaetze.Post;
    Einsaetze.Refresh;
    Memo2.Clear;
  end;
end;