Quitar Formato Formatcurr
 

hola, otra vezzzzzz..

mi pregunta es la siguiente, si yo a una cantidad le pongo un formato con

para que se lea una cantidad 1.256.301,42

¿como hago para hacer todo lo contrario para volver a utilizar la cantidad en un calculo?

es decir como le quito los puntos separador de mil y me vuelva a quedar 1256301,42..

porque si hago el calculo con 1.256.301,42, me da error por los puntos.


graciass

Te sería más cómodo guardar en una variable Currency el valor del edit. Dicha variable puede ser una variable publica o privada del Form.

Saludos

Yo tuve el mismo drama hace unos dias de tener que usar ese formato con separador de miles, y despues de sacarlo para podes hacer los calculos, y lo hice con una funcion en una clase que mediante un While va borrando la puntuacion de miles

Código Delphi [-]
function tCurrencyFormat.ReturnsCurrencyValue(number: string):string;
var
  Separator:string;
begin
  separator:=thousandseparator;
  while pos(separator,number)<>0 do
    delete(number,pos(separator,number),1);
  result:=number;
end;

Y en sentido inverso para mostrar un valor con separadores (esta con 2 decimales pero podes adaptarlo a tu gusto)

Código Delphi [-]
function tCurrencyFormat.FormatCurrency(number: Currency):string;
begin
  result:=currtostrf(number,ffnumber,2);
end;

Espero te sirva esto, saludos!