Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Maximal wert aus einer Listbox (https://www.delphipraxis.net/73026-maximal-wert-aus-einer-listbox.html)

anfänger123 11. Jul 2006 08:34


Maximal wert aus einer Listbox
 
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 11. Jul 2006 08:37

Re: Maximal wert aus einer Listbox
 
Gleiche Frage vor nicht ganz 24 Stunden gestellt :gruebel:

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

Balu der Bär 11. Jul 2006 08:44

Re: Maximal wert aus einer Listbox
 
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 11. Jul 2006 09:08

Re: Maximal wert aus einer Listbox
 
geht das auch noch irgendwie anders
weil das verstehe ich nicht

TeronG 11. Jul 2006 09:20

Re: Maximal wert aus einer Listbox
 
Zitat:

Zitat von anfänger123
geht das auch noch irgendwie anders

:gruebel:
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 11. Jul 2006 09:34

Re: Maximal wert aus einer Listbox
 
Zitat:

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 11. Jul 2006 09:37

Re: Maximal wert aus einer Listbox
 
ok danke jetzt hab ich es auch verstanden
bin halt etwas dumm muss mich noch etwas darein arbeiten

Sharky 11. Jul 2006 09:39

Re: Maximal wert aus einer Listbox
 
Zitat:

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 *


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:28 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz