深入方法(20)- 静态数组参数

//静态数组做参数, 不能这样使用:
function MyFun(arr: array[0..9] of Integer): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i in arr do Result := Result + i;
end;

//应该先把数组定义成一个类型
Type
  IntArray = array[0..9] of Integer; {先把需要的数组定义成一个类型}

  
//给一个静态数组求和的函数
function MyFun(arr: IntArray): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i in arr do Result := Result + i;
end;


{测试}
procedure TForm1.Button1Click(Sender: TObject);
const
  intArr: IntArray = (1,2,3,4,5,6,7,8,9,10);
var
  x: Integer;
begin
  x := MyFun(intArr);       {调用函数}
  ShowMessage(IntToStr(x)); {55}
end;
posted @ 2020-04-20 17:53  范思哲  阅读(176)  评论(0编辑  收藏  举报