随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//静态数组做参数, 不能这样使用:
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 on 2008-01-14 23:33  万一  阅读(...)  评论(...编辑  收藏