Minimum festlegen

[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