Question

delphi 求多个数最大值？

怎么样用delphi 求几个数的最大值？ max 函数只能求两个数的最大值。如果是多个数怎么办呢？
或者能用sql语言求出某一表中几列数据的最大值么？

Answer 1

定义一个函数：
function MultiMax(AInt: array of Integer):Integer;
var
I: Integer;
begin
if Length(AInt) = 0 then
ShowMessage('MultiMax: 不能计算给定参数的最大值！');
Result:=AInt[0];
for I:=1 to High(AInt) do
if Result<AInt[i] then
Result := AInt[I];
end;

然后在调用时，传递一个整型数组：
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
i:=MultiMax([1,2,3,4,5,6,7,8,9]);
ShowMessage(IntToStr(i));
end;

Answer 2

提供示例代码供参考：

//求给定数组中的最大值
function GetMaxInArray(A: array of Integer):Integer;
var
  I: Integer;
  tmpMax: Integer;
begin
  tmpMax := A[0];

  for I := low(A) to High(A) do
  begin
    if A[I] > tmpMax then tmpMax := A[I];
  end;

  Result := tmpMax;
end;

Answer 3

sql中有一个max 的聚合函数
tempdb col列
select max(col) from tempdb groupby col 求出单列最大
然后你比较就可以了

Answer 4

一直max下去