Markiertes Listbox Item nach Edit

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

mfG
mirage228