Hallo,
Die Variable "Vergleichswert" beinhaltet nicht die größte Zahl, sondern den Index der größten Zahl. Du bekommst also das Ergebnis mit
isbliste.Items[Vergleichswert].
Hier mal das Ganze als Funktion:
Delphi-Quellcode:
function GetMax(LB: TListBox): Integer;
var
i: Integer;
Max: Integer;
begin
if LB.Items.Count = 0 then // Listbox ist leer -> -1
begin
Result := -1;
Exit;
end;
Max := 0;
for i := 1 to LB.Items.Count - 1 do
if (StrToInt(LB.Items[i]) > StrToInt(LB.Items[Max])) then
Max := i;
Result := StrToInt(LB[Max]);
end;
In der ListBox dürfen aber nur Zahlen stehen, sonst gibt's einen Fehler.
Gruß
xaromz