O oiwin Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #5 用动态数组 ArrayName = array of string;
S someset Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #6 VarArrayCreate VarArrayLock VarArrayUnlock
J Jelly0228 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #7 這樣﹐我說一下我的問題﹐請各位大蝦幫忙﹗ 有一個過程P﹐它的參數A是 Variant類型的﹐目的在于可傳入不定數量的String類型的變量﹔ 當我們調用這個過程﹐可以這樣寫﹕ P(VarArrayOf(['AA','BB'])); 現在的問題是﹐我要將某一個字符串數組的所有元素傳入這個過程﹐而不是像上面的直接傳入字符串。而且我不能修改P過程代碼。 問題解決﹐再加50分(我低估了這個問題的難度)。
這樣﹐我說一下我的問題﹐請各位大蝦幫忙﹗ 有一個過程P﹐它的參數A是 Variant類型的﹐目的在于可傳入不定數量的String類型的變量﹔ 當我們調用這個過程﹐可以這樣寫﹕ P(VarArrayOf(['AA','BB'])); 現在的問題是﹐我要將某一個字符串數組的所有元素傳入這個過程﹐而不是像上面的直接傳入字符串。而且我不能修改P過程代碼。 問題解決﹐再加50分(我低估了這個問題的難度)。
D dedema Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #8 VarArrayOf([s1,s2,s3]); 当然可以的. 或者只能自己的写个函数来一一赋值了.
J Jelly0228 Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #9 謝謝dedema, 但是我要傳的字符串數組的元素個數是不固定的﹐所以直接調用VarArrayOf()是不行的。
S someset Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #10 vararray1 := VarArrayCreate([1, length(strarray)], varVariant); for i:=1 to length(strarray) do begin vararray1 := strarray; end;
vararray1 := VarArrayCreate([1, length(strarray)], varVariant); for i:=1 to length(strarray) do begin vararray1 := strarray; end;
D DoubleWood Unregistered / Unconfirmed GUEST, unregistred user! 2005-04-14 #11 其实不需要转换 var s: array of string; begin ... P(s); end; 应该就可以了
