Hallo,

ich habe 5 unterschiedliche Integer-Variablen mit unterschiedlichen Inhalten, und muss herausfinden, welche Variable den höchsten Wert beinhaltet.

Ohne jetzt 5 verschachtelte If-Abfragen zu schreiben: gibt es hier eine praktikablere Lösung?

Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

var Var1, Var2, Var3, Var4, Var5 : Integer;
    HighestValue : Integer;
begin
  Randomize;
  Var1:=Random(99);
  Var2:=Random(99);
  Var3:=Random(99);
  Var4:=Random(99);
  Var5:=Random(99);

  HighestValue:=Var1;
  if Var2 > HighestValue then HighestValue:=Var2;
  if Var3 > HighestValue then HighestValue:=Var3;
  if Var4 > HighestValue then HighestValue:=Var4;
  if Var5 > HighestValue then HighestValue:=Var5;

  ShowMessage('Die höchste Variable hat den Wert '+IntToStr(HighestValue));
end;

Math.MaxIntValue

[edit] Achso, Du willst ja nicht den Wert, sondern die Variable, welche diesen Wert enthält, richtig? [/edit]
[edit2] Nö, laut Code wohl doch nicht. Ich bin verwirrt [/edit2]

Wenn du keine einzelnen Variablen, sondern ein Array hättest, dann würde ein IF ausreichen.

Und wenn du wirklich die Wariable und nicht nur den Wert wissen willst, führt kein Weg darum. (FOR+IF oder merhere IFs)

Wie soll der Fall behandelt werden, wenn zwei (oder mehr) Variablen den höchsten Wert enthalten? Dann gibt es nicht die Variable, welche ...

Warten wir erst einmal ab, ob der TE sich noch einmal meldet. Mir ist (wie man oben merkt) noch nicht ganz klar, was genau denn ermittelt werden soll.

Er meint auch definitv den Wert und nicht die Variable, schaut mal auf seine Ausgabe

Dann schau nochmal auf meine beiden Edits in #2. Beschreibung und Code widersprechen sich ja in der Hinsicht.

Hi,

danke für die Antworten. Ich meine den Wert und die dazugehörige Variable. Im ShowMessage-Text muss ich die Variable benennen können.

Alle Variablen nacheinander prüfen (IF), wenn der Wert größer ist, dann den größeren Wert und die Variable merken. (ist natürlich in einer Schleife etwas schöner)

Oder den größten Wert bestimmen und danach die/eine Variable mit diesem Wert raussuchen.

markieren

Delphi-Quellcode:

uses (...), math;

(...)

  ShowMessage(IntToStr(max(var1, max(var2, max(var3, max(var4, var5))))));

somit erhältst du den größten Wert am elegantesten mMn!