Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
Re: niedrigstes Ergebnis raussuchen
11. Aug 2008, 16:25
Zum Einen musst Du die Unit math einbinden, zum Anderen erwartet die Funktion ein Array of double. Hier mal ein sinnfreies Beispiel:
Delphi-Quellcode:
uses math;
procedure TFormMain.ButtonMinValClick(Sender: TObject);
var d_arr: array of double;
begin
//das Array auf Größe "4 Elemente" setzen
SetLength(d_arr,4);
//und befüllen
d_arr[0] := 0.3;
d_arr[1] := 0.31;
d_arr[2] := 0.123;
d_arr[3] := 7.1;
//kleinsten Wert ausgeben
ShowMessage(FloatToStr(MinValue(d_arr)));
//und Speicher wieder freigeben
SetLength(d_arr,0);
end;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|