Listbox

[Phoenix]

Achtung: Pseudocode:

Delphi-Quellcode:

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

  for i := 0 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 i den Index des grössten Elementes in der Liste. Ist aber ungetestet.