with combobox do
begin
Items.AddObject('AA', TObject(8));
Items.AddObject('BB', TObject(90));
...
end;var
YourValue: Integer;YourValue := Integer(Combobox.Items.Objects[Combobox.ItemIndex]);
begin
Items.AddObject('AA', TObject(8));
Items.AddObject('BB', TObject(90));
...
end;var
YourValue: Integer;YourValue := Integer(Combobox.Items.Objects[Combobox.ItemIndex]);
解决方案 »
- Delphi7写了个程序,昨天还好的,今天在编译执行时出现Debugger exception'Property BCDToCurrency does not exist',有知道的吗?
- 怎样用ADO把一个dbf文件里的内容导入到另一个dbf文件里?
- idftpserver控件如何得知客戶端上傳一個檔案已經上傳完成
- 哪位用过DBGRIDEh3.0的兄弟请帮忙.
- 有关taborder及tabstop及tag的问题?
- 请教实现数据表得即时查询
- 怎么实现类似一个Edit加一个ScrolBar形式的功能?
- 搜索数据库时,语句怎麽写
- 请教大侠!
- 又谁能解释一下create的参数呢?
- 如何处理动态表结构问题?
- 请教,如何在delphi中操作excel对象在worksheet中插入一新的行?
1:aa 8
2: bb 90
3: cc 100............然后在用的时候就可以通过关联表取值!
var
s; String;
begin
if Combobo1.ITEMINDEX=1 then
s:='8'
end;
感觉好像不是这个意思
:(
var
pp:integer;
begin
case combobox1.ItemIndex of
0:pp:=8;
1:pp:90;
…………
end;
end;
const FValue :Array[0..3] of Integer=(8,90,100,88);
var pp:integer;
begin
pp :=FValue[ComboBox1.ItemIndex];
...
end;