Maximal wert aus einer Listbox

[anfänger123]

Morgen alle zusammen wie kann ich denn maximal wert aus einer listbox mir anzeigen lassen

zum beispiel wenn ich die zahlen 6,7,8,9,13 und ,15 habe will ich das er mir die 15 anzeigt kann mir jemand sagen wie ich das mache das wäre sehr net

hab nämlich noch keinen plan wie ich das machen soll

[Bernhard Geyer]

Gleiche Frage vor nicht ganz 24 Stunden gestellt

Wie wäre es mal mit Suche benutzen.
Die beiden Schlagwörter: Listbox maximal hätten zum Ergebnis geführt

[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.

[anfänger123]

geht das auch noch irgendwie anders
weil das verstehe ich nicht

[TeronG]

Zitat von anfänger123:

geht das auch noch irgendwie anders

man könnte die "function Max(const A, B: Integer): Integer;" benutzen ... (uses Math)

Delphi-Quellcode:

uses
  Math
...

var
  maxwert
...

for i := 0 to Box.Items.Count-1 do maxwert := Max(StrToInt(Box.Items[i]),maxwert);

[Balu der Bär]

Zitat von anfänger123:

geht das auch noch irgendwie anders
weil das verstehe ich nicht

Ich habe zum besseren Verständnis mal ein paar Kommentare in den obigen Quelltext eingefügt.

Ich schätze aber das es besser sein wird wenn du dir mal ein Delphi-Buch zulegst oder die Grundlagentutorials auf www.dsdt.info studierst, sonst is das alles eh sinnlos.

[anfänger123]

ok danke jetzt hab ich es auch verstanden
bin halt etwas dumm muss mich noch etwas darein arbeiten

[Sharky]

Zitat von Bernhard Geyer:

Gleiche Frage vor nicht ganz 24 Stunden gestellt ...

Und darum mache ich hier zu. Es hat keinen Sinn für ein Thema mehrere Threads zu eröffnen.

* c l o s e d *