Quitar Formato Formatcurr

[CarlosHernandez]

hola, otra vezzzzzz..

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

edit1.text:=FormatCurr('###,###,##0.00',strtocurr(edit1.Text));

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

[[Lepe]]

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

[Monchi]

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!