Minimum festlegen

[Hallo_Thomas]

Mal ne kurze Frage wie könnte der Befehl dafür aussehen,

Ich habe eine 3 Variablen.

A,B,C

Die Variable die den niedrigsten Wert hat übergibt diesem den Wert D.

[alcaeus]

Hallo Thomas,

guck dir mal die Funktion Min() an.

Greetz
alcaeus

[Hallo_Thomas]

Ich fand dafür kein Beispiel

D:=Min(A,B,C)

wird nichz akzeptiert

[Treffnix]

Min vergleicht nur 2 Werte. Müsstest also

Delphi-Quellcode:

D:= Min( A, Min( B, C ) );

machen

*edit* und die unit math in die uses

[Hallo_Thomas]

Klappt Wunderbar! Danke!

[runger]

Hallo,

nur der Vollständigkeit halber:
Diese Funktion macht das ganze mit einem Array.
Schreib deine Zahlen in das Array Data, ruf die Funktion auf und du erhälst das
Minimum aller Zahlen in dem Array. Diese Funktion ist auch mit vielen Zahlen nutzbar, allerdings hat sie auch den Nachteil, dass alle Zahlen in double deklariert sein müssen.

function MinValue(const Data: array of Double): Double;

Hier ein ganz simples Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..5] of double;b:double;s:string;
begin
   a[1]:=3;a[2]:=-5;a[3]:=-13;a[4]:=45;a[5]:=3;
   b:=MinValue(a);
   str(b,s);
   label1.caption:=s;
end;

Rainer

[Treffnix]

Zitat:

Zitat von runger

Diese Funktion ist auch mit vielen Zahlen nutzbar, allerdings hat sie auch den Nachteil, dass alle Zahlen in double deklariert sein müssen.

Es gibt auch MinIntValue für Integerwerte.

[Hallo_Thomas]

Danke, alles geklärt!