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]);
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;