Markiertes Listbox Item nach Edit

[Die Muhkuh]

Zitat von mirage228:

Zitat von Spider:

@Luckie

warum so umständlich:

Delphi-Quellcode:

var
  S: String;
begin
  S := ListBox1.Items.Strings[ListBox1.ItemIndex];
  Edit1.Text := S;
end;

@Spider

Warum so umständlich (und auch noch ohne Fehlerbehandlung) ?

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  ListBox1.Items[ListBox1.ItemIndex] := Edit1.Text;
/// ----- oder ------
with ListBox1 do
  if ItemIndex <> -1 then
    Items[ItemIndex] := Edit1.Text;

[i]Edit: Wieso zur Hölle werden meine Delphi Codes nicht übernommen?

Warum machst du das falsch rum? Sie will das markierte ins Edit machen:

Delphi-Quellcode:

if ListBox1.ItemIndex <> -1 then
  Edit1.Text := ListBox1.Items[ListBox1.Itemindex];