Memo2.Lines speichern

[uligerhardt]

Zitat von strom:

Delphi-Quellcode:

procedure TForm1.SQLSAVETimer(Sender: TObject);
begin
 if (CheckBox2.Checked = true) and (Memo2.Text <> '') then begin
  Einsaetze.Insert;
  Einsaetze.Edit;
  Einsaetze.FieldByName(ListBox1.Items[0]).Text := Memo2.Lines[0];
  Einsaetze.FieldByName(ListBox1.Items[1]).text := Memo2.Lines[1];
  Einsaetze.FieldByName(ListBox1.Items[2]).Text := Memo2.Lines[2];
  Einsaetze.FieldByName(ListBox1.Items[3]).text := Memo2.Lines[3];
  Einsaetze.FieldByName(ListBox1.Items[4]).Text := Memo2.Lines[4];
  Einsaetze.FieldByName(ListBox1.Items[5]).text := Memo2.Lines[5];
  Einsaetze.Post;
  Einsaetze.Refresh;
  Memo2.Clear;

Kommen die ListBox-Items und Memozeilen immer paarweise vor? Wenn ja, würde ich eine entsprechende Oberfläche wählen - ValueListEditor, zweispaltige ListView, Grid... Dann hast du solche Probleme wie das aktuelle gar nicht erst, und die Benutzung ist dann wahrscheinlich auch intuitiver.
Wenn es sogar immer genau sechs Paare sind, könnte man sogar einfach 6 Labels+Edits nehmen.