//給combobox賦值
ComboBox1.Items.AddObject('aaa', TObject(NewStr('001')));
ComboBox1.Items.AddObject('bbb', TObject(NewStr('002')));
ComboBox1.Items.AddObject('ccc', TObject(NewStr('003')));
//獲取當單前TObject的值 成功
str := PString(ComboBox1.Items.Objects[ComboBox1.ItemIndex])^;
//根據TObject的值回傳對應的itemindex 錯誤
itemindex:=ComboBox1.Items.IndexOfObject(TObject(NewStr('001'));
uj5u.com熱心網友回復：
還沒有使用OBJITEM過這種方法，看程式應該是指標的問題回傳是什么錯誤？應該是-1吧
itemindex:=ComboBox1.Items.IndexOfObject(TObject(NewStr('001'));
TObject(NewStr('001')已經是一個新的指標，不存在于ITEMS中
uj5u.com熱心網友回復：
同樣是這個NewStr('001')，不代表其地址也一樣。你要先搞個AObject: TObject記住你存入Objects里的某個專案，再用這個AObject取試試uj5u.com熱心網友回復：
回傳是-1，可能只有通過items.indexof('aaa')來回傳了轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/44377.html
標籤：VCL組件開發及應用
上一篇：麥克風揚聲器全面控制的例子
下一篇：不會編程，不小心碰了這個