comversion de tipos

[fabian20s]

tengo en un dbedit1 un dato tipo integer y en dbedit2 otro tipo currency quiero multiplicar los dos datos como lo consigo ???
dbedit1 = 11
dbedit2 = s/. 6.12

[Pablo Carlos]

Empezado por fabian20s

tengo en un dbedit1 un dato tipo integer y en dbedit2 otro tipo currency quiero multiplicar los dos datos como lo consigo ???
dbedit1 = 11
dbedit2 = s/. 6.12

Hola... pasa el campo del dbedit1 a currency creo que era asi IntToCurr o quizas...

Código Delphi [-]
var Total : Currency;
begin
 Total := FieldByName('Total1').Value ; //total1 es el campo que corresponde al dbedit1
 Total := FieldByName('Total2').Value * Total;
end;

Espero no equivocarme con lo que sugiero (sumamente agotado)
Saludos bye

[Pascual Montes]

\\saludos

[aarmalo]

Esta podría ser una posible forma de multiplicarlo:
var
k:string;
b:real;
begin
k:=DBEdit1.Text; {El Currency}
Delete(k,1,1); {Le quitamos el signo $}
b:=StrToFloat(k)*StrToInt(DBEdit2.Text); {realizamos la multiplicación}
end;

[jachguate]

No olvides que si el dato está en un DBEdit, es porque está asociado a un campo de una tabla (TField).

De esta cuenta, que lo es mucho mas práctico y confiable trabajar directamente sobre los TFields, puesto que el formato de presentación puede variar (Por ejemplo, algunas monedas como el euro usan el simbolo después del número, y otras como el quetzal, lo usan antes).

Asi, el código para obtener la multiplicación debiera ser algo como:

Código Delphi [-]
Var
  Total : Double;
Begin
  Total := Tabla1Campo1.AsCurrency * Tabla1Campo2.AsInteger;
  // o bien:
  Total := Tabla1.FieldByName('Campo1').AsCurrency * Tabla1.FieldByName('Campo2').AsInteger;
end;

Hasta luego.

[Pablo Carlos]

Empezado por Pascual Montes

incompatibilidad

Ups (en que estaría pensando)