理解 Delphi 的類(十) – 深入方法[21] – 開放數組參數

//給一個整型開放數組求和的函數function MyFun(const arr: array of Integer): Integer;var  i: Integer;begin  Result := 0;  for i in arr do Result := Result + i;end;{測試1:}procedure TForm1.Button1Click(Sender: TObject);var  num: Integer;begin  num := MyFun([1,2,3]);  ShowMessage(IntToStr(num)); {6}end;{測試2:}procedure TForm1.Button2Click(Sender: TObject);var  iArr: array of Integer;  i,x: Integer;begin  SetLength(iArr, 10);  for i := Low(iArr) to High(iArr) do  begin    iArr[i] := i + 1;  end;  x := MyFun(iArr);  ShowMessage(IntToStr(x)); {55}end;