請問各位! 我有一支 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([]) 的方式之外!

function (var1, var2, var3, var4:variant,var5 :tstrings): boolean;

試試 function(a1, a2, a3, a4, ComboBox.Items.Text);

還有.. function(a1, a2, a3, a4, Integer(ComboBox.Items)) function... begin TStrings(Integer(Item)).xxx end; ABCD分開看的懂，連起來像鬼劃符~~!!!

另一個類似 items.Text 的 items.DelimitedText 搭配 items.Delimiter 不過.. 不知用variant傳items是什麼樣的考量..

綜合以上三位提供的資料    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兄 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

Any particular reason for using variant??? Can VarArrayCreate be used instead of VarArrayOf?

你好： 也提出我的方法給你試試。 // > src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

這應該是個轉型的問題!
如何將Variant轉為Pointer (TObject為Pointer型態)
或將Pointer轉為Variant
1.hahalin
  使用TString類型的Pointer
2.hagar
  使用String類型Pointer
3.我的方法，直接轉型
  Variant->Integer->Pointer
4.ha0009
  使用函數轉型!
諸如此類...

ABCD分開看的懂，連起來像鬼劃符~~!!!