Cita:
Empezado por 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.
|
Ok, aqui podemos tener un problema distinto...
Te explicare el asunto,
1) Si el DbEdit7 es de tipo TDBEdit, entonces debera tener asociado un DataSource (En su propiedad DataSource) y un campo (En su propiedad DataField), por lo que si el valor de dicho campo es modificado, automaticamente se vera reflejado en el DBEdit.
2) Si DbEdit7 es de tipo TEdit, allí si tendras que hacer algo parecido a lo que estas haciendo.
Ahora los ejemplos para ambos casos:
Caso 1 (Si DBEdit7 es un TDBEdit):
==================================
Donde Valor2 es el campo asociado a la propiedad DataField del DBEdit7...
Código Delphi
[-]
Table1.Edit;
Table1.FieldByName('Valor').AsFloat := StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]) * TableCostos.FieldByName('Almuerzo').AsFloat;
Table1.Post;
Caso 2 (Si DBEdit7 es un TEdit):
================================
Código Delphi
[-]
DbEdit7.Text := FormatFloat('###,###,##0.00', StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]) * TableCostos.FieldByName('Almuerzo').AsFloat;
StrToInt(ComboBox2.Items[ComboBox2.ItemIndex]) * TableCostos.FieldByName('Almuerzo').AsFloat);
Espero te sirva de algo
.