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窗体自适应分辨率

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi获取盘符代码

Delphi 线程中修改主窗体的控件内容

Delphi之数组

Delphi datasnap http用法注意事项

Delphi利用系统时间产生随机数的函数

Delphi木马生成技术

Delphi 跨平台获取文件列表

用Delphi内嵌汇编实现�载任意进程的某个dll

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

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