返回一个双精度浮点数数组的最大值代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】返回一个双精度浮点数数组的最大值

作者:jellyvice / 发布于2013/12/3/ 1502

function MaxOfArray(const A: array of Double): Double; overload;
var
 Idx: Integer;
begin
 Assert(Length(A) > 0);
 Result := A[Low(A)];
 for Idx := Succ(Low(A)) to High(A) do
  if A[Idx] > Result then
   Result := A[Idx];
end;

　　

试试其它关键字

　最大值　

同语言下

可能有用的

jellyvice贡献的其它代码(28)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3