delphi求数组最大\最小值

本文整理自网络，侵删。

 
delphi求数组最大\最小值

//求最大值
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;

//求最小值
function GetMinInArray(A: array of Integer): Integer;
var
  I: Integer;
  tmpMin: Integer;
begin
  tmpMin := A[0];

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

  Result := tmpMin;

end;
 

相关阅读 >>

Delphi+access错误"不正常地定义参数对象。提供了不一致或不完整的信息。"

Delphi固定窗口大小

Delphi trimleft 删除字符串左边的空格

Delphi实现双击左ctrl键调用记事本

Delphi 改造shellexecute 精简函数

Delphi 在tedit中显示水印提示

Delphi控制程序在任务栏显示与隐藏

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi xe中将正则表达式tregex的使用

Delphi xe filesizebyname 要引用哪些文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi求数组最大\最小值