Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#4

Re: niedrigstes Ergebnis raussuchen

  Alt 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
  Mit Zitat antworten Zitat