Alternativlösung: (schnell getippt, müsste aber gehen)
Delphi-Quellcode:
function MaxValue(Box : TListbox) : Integer;
var
i, max : Integer; //Erstelle Variablen
begin
max := StrToInt(Box.Items[0]); //der Variablen max die oberste Zahl in der Listbox zugewiesen
for i := 0 to Box.Items.Count-1 do //for-Schleife, alle Zahlen der Listbox werden durchgegangen
begin
if max < StrToInt(Box.Items[i]) then max := StrToInt(Box.Items[i]); //wenn eine Zahl größer als max ist wird diese Zahl in der Variablen max gespeichert
end;
result := max; //der Rückgabewert, also die größte Zahl
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(MaxValue(Listbox1))); //der Aufruf, wenns in ein Edit gehen soll müsstest du edit1.text := IntToStr(MaxValue(Listbox1)) wählen
end;
Sollte eigentlich selbsterklärends ein.