Memo2.Lines speichern

[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(.."

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

[hathor]

.....

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

.....

[himitsu]

Selbst ohne EINRÜCKUNG hätte man das Problem schnell gesehn,
aber warum benutzt eigentlich nie jemand den Debugger, schaut nach, warum sein Programm nicht das macht, was es soll, und warum es das nicht macht?

Es ist auch ein klitzekleines bissl erscheckend, warum nichtmal eine Copy&ÜPaste-Lösung richtig kopiert wird.


Und zu dem if (CheckBox2.Checked = true) sag ich jetzt besser nichts. (wer weiß, was danach daraus wird)

[Sir Rufo]

@himitsu

Wie oft soll der TE denn noch sagen, dass er keine Zeit hat, die Doku zu lesen, im Internet zu suchen, sich Grundlagen anzueignen oder eben den Debugger zu benutzen.

Schließlich braucht er seine ganze zur Verfügung stehende Zeit dafür hier Fragen zu stellen und auf eine Antwort (fertigen Code) zu warten

[Luckie]

Bevor es zu spät ist: Kommt malö wieder runter. Wem die Einstellung vom Threadstarter nicht zu sagt, braucht einfach nicht antworten.