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

解决方案 »

  1.   

    最好做一个关联的表!
     1:aa 8
     2: bb 90
     3: cc 100............然后在用的时候就可以通过关联表取值!
      

  2.   

    procedure TForm1.ComboBox1Click(Sender: TObject);
    var
      s; String;
    begin
      if Combobo1.ITEMINDEX=1 then
        s:='8'
    end;
    感觉好像不是这个意思
    :(
      

  3.   

    用case 语句来判断吧.
    var
      pp:integer;
    begin  
      case combobox1.ItemIndex of 
        0:pp:=8;
        1:pp:90;
       …………
      end;
    end; 
        
       
      

  4.   

    procedure TForm1.ComboBox1Change(Sender: TObject);
    const FValue :Array[0..3] of Integer=(8,90,100,88);
    var pp:integer;
    begin
    pp :=FValue[ComboBox1.ItemIndex];
    ...
    end;