como asignar a un item combobox un numero

[Kamael]

Como le puedo asignar un numero a un combobox?
Por ejemplo :
Los items del combo son :
Aluminio
Cobre
etc...
yo lo que quiero es que cuando clique en aluminio me asigne un valor a este item dandole un valor(0.017)
y pueda hacer una operacion matematica con este valor.
y así sucesivamente.
Edstoy en blanco ahora mismo.
gracias.

[Casimiro Noteví]

Creo que las últimas versiones de delphi traen un combobox que puedes asignar por separado el texto y el valor que le das a esa posición, me explico con un ejemplo, algo así como:

Código Delphi [-]
combobox.items[0] := 'cobre';
combobox.items[1] := 'plata';
combobox.items[2] := 'oro';
//
combobox.values[0] := 29;
combobox.values[1] := 47;
combobox.values[2] := 79;

Yo uso un componente combobox de las RXlib, que también lo permiten.

[[Caral]]

Hola
Sabiendo cuantos items hay y que valor tienen:
1- se recorre el combobox.
2- se define en la variable i cuantos items tiene.
3- se asigna valor.
4- se muestra en el label1.
En este caso 4 items, 4 valores.

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i  :Integer;
  valor : Real;
begin
    for i := 0 to ComboBox1.ItemIndex do begin
    case i of
     0 : begin
         valor:= 0.017;
          end;
     1 : begin
          valor:= 0.020;
          end;
     2 : begin
          valor:= 1.22;
          end;
     3 : begin
          valor:= 2.015;
          end;
end;
    Label1.Caption:= FloatToStr(valor);
end;
end;

Saludos

[[Caral]]

Hola
Amigo siento contradecirte pero con :

Código Delphi [-]
for i := 0 to ComboBox1.ItemIndex -1 do begin

no funciona, ve el ejemplo adjunto.
Saludos
PD: Me ganaste-

[Casimiro Noteví]

Empezado por Caral

PD: Me ganaste-

jajaja... ya había borrado mi mensaje

[[Caral]]

Hola
Asi no se vale, yo no pude borrar el mio...
Saludos

[ecfisa]

Hola Kamael.

Te agrego otra opción.

Ejemplo:

Código Delphi [-]
...
procedure TForm1.FormCreate(Sender: TObject);
const 
  METAL: array[1..6] of string =('Cobre', 'Aluminio', 'Hierro', 'Mercurio', 'Oro', 'Plata');
  VALOR: array[1..6] of Integer = (10, 20, 30, 40, 50, 60);
var
  i: Integer;
begin
  with ComboBox1 do
  begin
    for i:= 1 to 6 do
      AddItem(METAL[i], TObject(VALOR[i]));  // nombre de metal y valor
    ItemIndex:= 0;
  end;
end;

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
begin
  with ComboBox1 do
    ShowMessage('Metal: ' + Items[ItemIndex] + #10#13 +  // nombre de metal
                'Valor: ' + IntToStr(Integer(Items.Objects[ItemIndex])));  // valor
end;

Saludos.

[Kamael]

gracias a todos por responder tan rapido. Lo he solucionado de esta manera :

If Combobox1.Text = 'Aluminio' then
 begin
    lbabel1.Caption := FloatToStr(0.029) ;
  end ;

 If Combobox1.Text = 'Cobre' then
 begin
 
   Label2.Caption := FloatToStr(0.017) ;
end;

De todas maneras repasare vuestro codigo, pues me parece mas interesante que el mio