Variant 及 TObject 在function上的定義 |
缺席
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
請問各位! 我有一支 function (var1, var2, var3, var4, var5: variant): boolean; 其中有一個我想傳一個 combobox 內所有的items內容到 function var5中
但有一個問題, 如果我這樣寫 function(a1, a2, a3, a4, combobox) 或
function(a1, a2, a3, a4, combobox.items) 都會出現 Incompatible Type Variant and TCombobox 請問有沒有方法可以把 combobox 的items值全部傳入function中? 除了使用 VarArrayof([]) 的方式之外!
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
jest0024
高階會員 發表:11 回覆:310 積分:224 註冊:2002-11-24 發送簡訊給我 |
|
peipei36
一般會員 發表:8 回覆:51 積分:16 註冊:2002-03-13 發送簡訊給我 |
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
綜合以上三位提供的資料 hagar兄
function(a1, a2, a3, a4, ComboBox.Items.Text);
編譯可通過, 但在function接收時, 我要如何取得 combobox.item[i]的值
因為我在接收的function上也必須這樣的定義
function(var1, var2, var3, var4, var5: variant): boolean;
begin
....
end; 其中 var5 如果我這樣寫
var5.items[1].text, 編譯上是可以過, 但執行時會出現
Variant does not reference an automation object 的錯誤 jest0024 function(a1, a2, a3, a4, Integer(ComboBox.Items))
這樣的傳入寫法, 編譯也可以通過
但在接收上
TStrings(Integer(Item)).xxx
這段我就看不懂了, 雖然 TCombobox 的 return value 是 TString
但如果我要取出傳入的 TCombobox.Items[1] 值
不知上面的表示法應如何才是完整正確的寫法
TStrings(Integer(此處是要放何object)).xxx 我總試不出 xxx 可以出現那一組 properity或 method來 peipei36
items.DelimitedText 搭配 items.Delimiter
我找不到 TCombobox.Items.DelimitedText的 properity及method
我使用的是Delphi5 以上謝謝三位, 但問題還沒法解決!
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: hagar兄 function(a1, a2, a3, a4, ComboBox.Items.Text); 編譯可通過, 但在function接收時, 我要如何取得 combobox.item[i]的值 因為我在接收的function上也必須這樣的定義 function(var1, var2, var3, var4, var5: variant): boolean; begin .... end; 其中 var5 如果我這樣寫 var5.items[1].text, 編譯上是可以過, 但執行時會出現 Variant does not reference an automation object 的錯誤 function(var1, var2, var3, var4, var5: variant): boolean; var sl: TStringList; begin sl := TStringList.Create; try sl.Text := VarToStr(var5); ShowMessage(sl.Strings[1]); finally sl.Free; end; end;發表人 - hagar 於 2004/06/09 16:19:46 |
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
ha0009
版主 發表:16 回覆:507 積分:639 註冊:2002-03-16 發送簡訊給我 |
|
jest0024
高階會員 發表:11 回覆:310 積分:224 註冊:2002-11-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |