Maximal wert aus einer Listbox

[Balu der Bär]

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.