Combo

[Guest Michele]

Olá,

Estou iniciando na programação com Delphi.

Preciso fazer um combo com dependentes para uma folha de pagamento

No ombo terá a opção 1 á 10 dependentes.

assim para cada dependente a variavel receberá o valor de R$ 127,00

Só num sei como enviar o valor selecionado a variavel

Alguém pode me ajudar???

[Erso]

procedure TForm1.ComboBox1Change(Sender: TObject);
Var
Variavel : Real;
begin
If ComboBox1.ItemIndex = 0 Then
 Variavel := 127.00
 else
 If ComboBox1.ItemIndex = 1 Then
 Variavel := 130.00
 else
 If ComboBox1.ItemIndex = 2 Then
 Variavel := 140.00
 else
 If ComboBox1.ItemIndex = 3 Then
  Variavel := 150.00;

edit1.Text := FloatToStr(Variavel);

end;

assim a cada tipo de dependente você pode colocar um determinado valor, use o evento onchange do combobox

[Churc]

Opa

Apenas complementando o código do Erso, da pra se usar case também

ao invés de if

case Combobox1.Itemindex of

1: Variavel := 127.00;

2: Variavel := 130.00;

3: ...

end;

abraço