Listbox

[Delphi-Freak]

Wenn ich den Code von Phoenix etwas ausbessern darf:

Delphi-Quellcode:

var
  i: integer;
  vergleichswert: integer;
begin
  vergleichswert := 0;

  for i := 1 to liste.Items.Count - 1 do
  begin
    if ( StrToInt(liste.Items[i]) > StrToInt(liste.Items[vergleichswert]) ) then
    begin
      // grösseren Wert gefunden:
      vergleichswert := i;
    end;
  end;
end;

-> »Am Ende hat vergleichswert den Index des grössten Elementes in der Liste.«

for i := 1 to..., weil StrToInt(liste.Items[0]) > StrToInt(liste.Items[0]) nie stimmen kann -> unnötig bei 0 zu beginnen


LG, ich