Text aus mehreren Edits in eine Listbox

[Superior]

Hallo,

ich suche für Folgendes den Quelltext:
Ich habe ein Programm indem sich mehrere Edits befinden.
Wenn ich auf einen Button klicke dann soll der Inhalt der Edits in eine Listbox kopiert werden.
Allerdings so, dass dann die Inhalte aus den Edits auch untereinander stehen!!!


Freue mich shcon auf eure Antworten.

mfg
Superior

[SirThornberry]

so sollte es gehen

Delphi-Quellcode:

begin
  Listbox1.Items.BeginUpdate;
  Listbox1.Items.Add(Edit1.Text);
  Listbox1.Items.Add(Edit2.Text);
  Listbox1.Items.Add(Edit3.Text);
  Listbox1.Items.Add(Edit4.Text);
  Listbox1.Items.EndUpdate;
end;

oder

Delphi-Quellcode:

var LCount: Integer;
begin
  Listbox1.Items.BeginUpdate;
  for LCount := 1 to 4 do
    Listbox1.Items.Add(TEdit(FindComponent('Edit' + inttostr(LCount))).Text);
  Listbox1.Items.EndUpdate;
end;

[Superior]

Hallo,

ich habe es jetzt mit dem 1. Befehl von dir ausprobiert. Das klappt auch.
Jetzt habe ich nur folgendes Problem:
Wenn in der Listbox bereits etwas drin steht dann bleibt nach klicken auf den Button alles gleich und Änderungen werden nicht übernommen.
Weißt du woran das liegt und hast du vielleicht den Quelltext dafür?


Vielen Dank schon einmal im Vorraus

mfg
Superior

[Superior]

Habs schon gefunden.
Trotzdem danke.

mfg
Superior