Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Höchste Integerwert ermitteln. (https://www.delphipraxis.net/8440-hoechste-integerwert-ermitteln.html)

Taladan 4. Sep 2003 16:32


Höchste Integerwert ermitteln.
 
Gibt es eine schnelle funktion, aus einer Reihe Integerwerten den höchsten herauszufinden (die integerwerte heißen vollkommen unterschiedlich und sind auch nicht nummeriert)?

Stanlay Hanks 4. Sep 2003 16:44

Re: Höchste Integerwert ermitteln.
 
meinst du mit "Reihe von Integerwerten" wirklich eine Reihe oder lauter Variablen?

JoelH 4. Sep 2003 16:56

hmm,
 
woher weiss denn das Programm was verglichen werden soll ? Du musst es ja irgendwie programmieren, oder ?

Taladan 4. Sep 2003 17:18

Re: Höchste Integerwert ermitteln.
 
Kurzgesagt. Ich möchte von mehreren Bitmaps das höchste und das breiteste herausfinden. die Bitmaps existieren schon als variable im programm
beispielsweise: drei bilder. Grüne Oase, gelber sand, blauer himmel

Delphi-Quellcode:
 h1 = 0;
 if h1 < grueneoase.width then h1 := grueneoase.width;
 if h1 < gelbersand.width then h1 := gelbersand.width;
 if h1 < blauerhimmel.width then h1 := blauerhimmel.width;

und das selbe dann noch mal mit der höhe und das für knapp dreizig bildchen. da das ganze dan auch noch 3x3x30 sind, schönen dank auch. Da ist der code länger als der nutzen.

ich dachte so an einen code wie

Delphi-Quellcode:
h1 := high(grueneoase.width, gelbersand.width, blauerhimmel.width);

JoelH 4. Sep 2003 17:24

Re: Höchste Integerwert ermitteln.
 
hmm,
warum gibst du den Dingern nicht gescheite Namen ? Sowas wie
bild[1]...bild[30] ?

Naja sind das alles die gleichen Komponenten ? Dann kannste vielleicht was mit FIndComponent oder so basteln. Ist alles sehr vage was du du hast.

nailor 4. Sep 2003 17:41

Re: Höchste Integerwert ermitteln.
 
Es gibt eine Max(a,b) Funktion. Sie gibt den höheren Wert zurück. Damit vergleiche erst 1 mit 2, dann den "Gewinner" mit 3, davon den Gewinner mit 4.

Das sollte funktionieren, einfach umzusetzen sein, und verständlich sein.

CrashMan 4. Sep 2003 17:46

Re: Höchste Integerwert ermitteln.
 
Und wenn du die Bilder wie bereits genannt mit Bild[n] bennenst kannste auch ne Schleife draus machen...

kasi 4. Sep 2003 18:38

Re: Höchste Integerwert ermitteln.
 
Unit

Math

Kategorie

Statistik

function MaxIntValue(const Data: array of Integer): Integer;

Beschreibung

Mit MaxIntValue können Sie den größten Integer-Wert in dem mit Data angegebenen Array ermitteln.

Value := MaxIntValue([Bmp1.Height, Bmp1.Height, Bmp1.Height])

KASI

Taladan 4. Sep 2003 20:04

Re: Höchste Integerwert ermitteln.
 
und zuschlag erhält KASI. thx

Bilder sind passend benant, da sie propertys sind.


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:22 Uhr.

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