procedure X(X: Variant);
var
  iCount: Integer;
begin
  iCount:= X <-- X 陣列的長度為多少, 該如何取得
  ...
  ...
end;    procedure XX;
begin
  X(VarArrayOf([A,B]));
end;

-- 把手握緊，裡面什麼也沒有 把手鬆開，你擁有的是一切 發表人 - Jasonwong 於 2005/06/02 23:46:54

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

VarArrayDimCount VarArrayHighBound VarArrayLowBound Procedure X(Value:Variant); begin ShowMessage(inttostr(VarArrayHighBound(Value,1))); end; ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～ 發表人 - wameng 於 2005/06/03 01:02:11

先感謝你的回覆    VarArrayDimCount  --> 這個是取得陣列的維度, 在這個範例維度為一, 故他會永遠傳回一 VarArrayHighBound VarArrayLowBound 下面兩個我也有試過, 也是不行的 發表人 - Jasonwong 於 2005/06/03 14:23:48

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

VarArrayHighBound 這個確定是可以的。 iCount := VarArrayHighBound(X,1) 1; 不瞭解，你要的為何？ ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

引言: VarArrayHighBound 這個確定是可以的。 iCount := VarArrayHighBound(X,1) 1;

SORRY 因為忙於工作, 故慢於回覆 我有個問題, VarArrayHighBound(X,1) 1 為什麼還要加 1 呢 還有 如果我沒有用 VarArrayOf 去 Create 一個陣列, VarArrayHighBound是否還檢測的出來 ? 發表人 - Jasonwong 於 2005/06/04 13:17:04

VarArrayHighBound 為陣列的最高值，VarArrayLowBound 為最低植。 就如同 High , Low 若該Variant 非陣列 則 VarArrayHighBound為 -1 1 的目的，是為了符合 iCount。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～