Multiplicando el resultado de un ComboBox

[Camilo]

Hola Amigos:

Necesito su ayuda en el siguiente tema:
Tengo una Tabla (Table1) con un campo (Campo1) de tipo Currency.
Tengo en un Form un ComboBox1 y sus items son los 30 dias del mes (1,2,3,4,5...).
Necesito que al dal Click a cualquiera de los numeros del ComboBox; este numero (el Seleccionado) se multiplique por el valor del Campo1 de la Tabla1 que es currency. Y que a su vez me refleje el resultado en un DbEdit1.

Trabajo D-7 Paradox.

Muchas gracias por su calificado aporte.

[[enecumene]]

A ver:

Código Delphi [-]
DBEdit1.Text := Tabla1.fields[0].asCurrency * float(ComboBox1.Text);

lo puedes poner en los eventos OnClick o OnChange del ComboBox.

PD. Lo hice sin delphi en mano puede no estar correcto.

Saludos.

[jhonny]

Supongo que el DBEdit1 esta conectado a un Campo2, entonces la cosa quedaria asi en el OnClik del ComboBox:

Código Delphi [-]
Table1.Edit;
Table1.FieldByName('Campo2').AsFloat := StrToInt(ComboBox.Items[ComboBox.ItemIndex]) * Table1.FieldByName('Campo1').AsFloat;
Table1.Post;

Espero te sirva .

[jhonny]

Que raro que luego de 36 minutos del primer mensaje, coloquemos este mensaje tan seguido .

[Camilo]

Muchachos mil gracias por sus siempre buenas intenciones y aportes; en ambos casos me sale el siguiente error:

[Error] Unit29.pas(452): Incompatible types: 'String' and 'Extended'
Gracias

[jhonny]

Empezado por Camilo

Muchachos mil gracias por sus siempre buenas intenciones y aportes; en ambos casos me sale el siguiente error:

[Error] Unit29.pas(452): Incompatible types: 'String' and 'Extended'
Gracias

Con lo que te hemo mostrado no debería mostrar ese error...

¿Sería posible que veamos las lineas 451, 452 y 453 de tu unidad?

[Camilo]

Tienes Razon Jhonny realmente el mensaje es el siguiente:
"[Error] Unit29.pas(452): Incompatible types: 'String' and 'Extended'"

y las lineas son las siguientes:

Código Delphi [-]
 procedure TFormAlmuerzos.ComboBox2Click(Sender: TObject);
begin
DbEdit7.Text := StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]) * TableCostos.FieldByName('Almuerzo').AsFloat;
end;

Recuerda que el resultado de la operacion lo necesito en el DbEdit7

Gracias.