COmboBOx1

[ecfisa]

Hola.

Supongamos que Clave y Clave1 son de tipo string... sería:

Código Delphi [-]
var
  Clave,Clave1: string;
begin
   Clave:= ComboBox1.Items[ComboBox1.ItemIndex];
   Clave1:= ComboBox2.Items[ComboBox2.ItemIndex];
end;

Ahora supongamos que son de tipo integer:

Código Delphi [-]
var
  Clave,Clave1: integer;
begin
  Clave:= StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);
  Clave1:= StrToInt(ComboBox2.Items[ComboBox1.ItemIndex]);
end;

Lógicamente en este último caso ComboBox1 y ComboBox2 tendrían que tener valores válidos para ser convertidos, por ejemplo: '1', '1101','500' y
no 'Casa' o 'ab132'...

Un saludo.