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

代码语言

代码分类

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

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

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)