Hallo,
möchte aus einem Memo, bestimmte "Zeilen" in eine Datenbank schreiben.
Wenn jetzt in einer Zeile nur "Leerzeichen" sind, wird die Procedure nicht
weiter ausgeführt.
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;