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.

[Popov]

Noch eine Kleinigkeit die mich seit dem ersten Post klein wenig "stört". Ich gehe natürlich davon aus, dass es immer 6 Zeilen in Memo2 geben wird und auch immer 6 Items in ListBox1, was aber wenn nicht? Ich vermisse die Prüfung der Counts. Da wird feuchtfröhlich auf 6 Items in zwei Komponenten zugegriffen. Aus meiner Lebenserfahrung weiß ich, dass sowas mal daneben gehen wird.

[p80286]

@Popov

Zitat:

Wenn jetzt in einer Zeile nur "Leerzeichen" sind, wird die Procedure nicht
weiter ausgeführt.

das das mit der festen Zuordnung 6 Zeilen / Felder nicht immer klappt, scheint er auch schon gemerkt zu haben.

@storm
wie schon in einem anderen Thread festgestellt, zeichnen sich Deine Fragestellungen durch ein Minimum an Informationen aus. Sollten Dir diese tatsächlich fehlen, wäre es hilfreich dies zu erwähnen.
(Meine Kollegen sind auch der Meinung man (ich) müßte wissen was sie sich denken. Irgendwann mag man dann nicht mehr raten was der Gegenüber eigentlich will!)


Gruß
K-H