edit.text ein item einer listbox zuweisen

[guude4]

Guten Tag

Ich möchte gerne dem Text eines Editfeldes den Wert oder Namen eines Item einer Listbox zuweisen.
Theoretisch würde dass dan so aussehen:

Code:

Edit1.Text := for i := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Selected[i] then
      Label1.Caption := ListBox1.Items.Strings[i];
  end;

Das kann natürlich nicht funktionieren, aber wie es fuzen könnte weiß ich leider auch nicht.

Vielen Dank für eure Hilfe
Chris

[s.h.a.r.k]

Edit1.Text := ComboBox1.Text; oder

Delphi-Quellcode:

if (ComboBox1.ItemIndex > -1) then
  Edit1.Text := ComboBox1.Items[ComboBox1.ItemIndex];

[himitsu]

oder eben, mit seiner Schleife

Delphi-Quellcode:

for i := 0 to ListBox1.Items.Count - 1 do
  if ListBox1.Selected[i] then
    Edit1.Text := ListBox1.Items.Strings[i];

// bzw

for i := 0 to ListBox1.Items.Count - 1 do
  if ListBox1.Selected[i] then
    Edit1.Text := ListBox1.Items[i];  // .Strings ist die Standardeigenschaft

Zitat:

Theoretisch würde dass dan so aussehen:

Theoretisch und praktisch nein.
Du sagtest doch selber du willst den Text der ComboBox zuweisen.
Versucht zuzuweisen (via Edit1.Text := ... ) hast du aber eine For-Schleife, was natürlich nicht geht.