Listbox

[marabu]

Hi,

du hast nur den Index ausgegeben und nicht den Wert

Delphi-Quellcode:

begin
  vergleichswert := 0;
  for i := 0 to isbliste.Items.Count - 1 do
  begin
    if ( StrToInt(isbliste.Items[i]) > StrToInt(isbliste.Items[vergleichswert])) then
    begin
      Vergleichswert := i;
      edtText.Text := isbliste.Items[vergleichswert];
    end;
  end;
end;

Grüße vom marabu