請用 TList Class 解決這類問題.
--
來自半封閉開放系統的誠摯邀約, 請大家一起支持全新的
Delphi Mailing List -- DelphiChat
Delphi 2.0 深度歷險 -- http://www.aaa.hinet.net/delphi
如下:
Function OpenArray( VAR arr : array of real) : real ;
var i : word ;
begin
result := 0.;
for i := 0 to HIGH(arr) do {High 及 Low
可傳回陣列Index的最大最小值。}
Result := Result + arr[i];
end;