Memo2.Lines speichern

[strom]

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;

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

[hathor]

.....

[Neutral General]

Zitat von hathor:

Fülle das Memo, bevor es reale Daten bekommt:

for i := 0 to 9999 do MemoX.Lines.Add('');

Und dann fängt der Benutzer an darin rumzuklicken/tippen und alles war umsonst

[strom]

hallo neutral-general,

jetzt wird aber nur 'Memo2.Lines[0].text' abgespeichert.

Delphi-Quellcode:

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];
  Einsaetze.Post;
  Einsaetze.Refresh;
  Memo2.Clear;
 end;
end;
end;

[Neutral General]

Weil das end von der Schleife viel zu weit unten ist. In der Schleife selbst ist nur das "Einsaetze.FieldByName(.."

[hathor]

.....

[nuclearping]

Zitat von strom:

hallo neutral-general,

jetzt wird aber nur 'Memo2.Lines[0].text' abgespeichert.

1) Ja, weil du Memo2.Clear am Ende der Schleife ausführst. Also du löschst den gesammten Inhalt von Memo2, nachdem die Schleife EINMAL durchgelaufen ist.
2) Bitte benutzt doch ordentliche Code-Einrückung!

Delphi-Quellcode:

procedure TForm1.SQLSAVETimer(Sender: TObject);
var
  i: Integer;
begin
  if CheckBox2.Checked 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];

          Einsaetze.Post;
          Einsaetze.Refresh;

          Memo2.Clear; // <-- Der Inhalt von Memo2 wird bei diesem Aufruf GELEERT
        end;
    end;
end;

So sollte es wohl gedacht sein:

Delphi-Quellcode:

procedure TForm1.SQLSAVETimer(Sender: TObject);
var
  i: Integer;
begin
  if CheckBox2.Checked 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;

Wie schon gesagt: EINRÜCKUNG! Dann wird auch der Unsinn deutlicher, den man verzapft.

[nuclearping]

Zitat von hathor:

Du solltest nicht Vermutungen äussern, sondern bei Zweifeln einfach nur TESTEN !

Ändert nichts daran, dass die Memo dann 10.000 leere Zeilen hat. Wozu soll das gut sein?

Die Lösung von Neutral General, die Memo über eine Schleife abzuarbeiten, ist am rationellsten.

[hathor]

.....