---- 给定几个值，如何用一个函数返回最小值？？

Question

给定几个不定数，如何用一个函数返回其中的最小值，函数应如何写,如何来调用？
愿高手不吝赐教！举例： 给定5.1,1,3,10       Min(5.1,1,3,10) 返回 1
      给定5.1,1,3,10,0.8   Min(5.1,1,3,10) 返回 0.8

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function Min(DataAry: array of Real): Real;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}function TForm1.Min(DataAry: array of Real): Real;
var
  i: integer;
begin
  if Length(DataAry) = 0 then
  begin
    Result := 0;
    exit;
  end;  Result := DataAry[0];
  for i := 1 to Length(DataAry) - 1 do
    if DataAry[i] < Result then
      Result := DataAry[i];
end;procedure TForm1.Button1Click(Sender: TObject);
var
  MyAry: array[0..4] of Real;
begin
  MyAry[0] := 5.1;
  MyAry[1] := 1;
  MyAry[2] := 3;
  MyAry[3] := 10;
  MyAry[4] := 0.8;
  ShowMessage('Min Is: ' + FloatToStr(Min(MyAry)));
end;end.

Answer 2

用Math.MinValue
uses Math;procedure TForm1.btn1Click(Sender: TObject);
var
  val: Double;
  arrVal: array of Double;
  vals: TStringList;
  source: PChar;
  i: Integer;
begin
  source := '5.1,1,3,10,0.8';
  vals := TStringList.Create;
  ExtractStrings([','], [], source, vals);
  SetLength(arrVal, vals.Count);
  for i := 0 to vals.Count - 1 do
    arrVal[i] := StrToFloat(vals[i]);
  val := MinValue(arrVal);
  ShowMessage(FloatToStr(val));
end;

Answer 3

呃，vals忘了free了，最后补上
vals.Free;