CurrToStr sin coma ni puntos

[marilinspi]

Hola a todos, he buscado y buscado pero no lo encuentro o no existe una función que me convierta un Currency a String pero sin puntos ni comas ej. 1.195,60 a '119560' al darse por entendido que los dos últimos dígitos son los decimales, ya que un aplicativo del SIAP lo requiere así, si alguien sabe del tema, agradeceré su ayuda.

[Casimiro Notevi]

Siempre puedes crear tú mismo una sencilla función que los quite.

[[nlsgarcia]]

marilinspi,

...una función que me convierta un Currency a String...ej. 1.195,60 a '119560'...

La función en Delphi que convierte un número de coma flotante (Single, Double, Extended, Currency) a String es FloatToStr.

Lo que tu requerimiento sugiere es una función que elimine el formato numérico (Separador de miles y decimales) de un string numérico formateado.

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function NumberToString(Number : String) : String;
var
   SL : TStringList;
   i : Integer;
begin
   SL := TStringList.Create;
   ExtractStrings([',','.'], [], PChar(Number), SL);
   for i := 0 to SL.Count - 1 do
      Result := Result + SL[i];
   SL.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Number : String;
begin
   Number := '1.234.567.890,99';
   ShowMessage(NumberToString(Number)); // Muestra : 123456789099
end;

end.

El código anterior en Delphi 7 bajo Windows 7 Professional x32, convierte un número formateado (String numérico con separador de miles y decimales) en su equivalente sin formato.

Espero sea útil

Nelson.

[roman]

¿Qué tal algo así?

Código Delphi [-]
function ImprimeCurrency(C: Currency): String;
begin
  Result := IntToStr(Trunc(100*C));
end;

O bien, si necesitas redondeo:

Código Delphi [-]
uses Math;

function ImprimeCurrency(C: Currency): String;
begin
  C := RoundTo(C, -2);
  Result := IntToStr(Trunc(100*C));
end;

// Saludos

[ecfisa]

Hola marilinspi.

Otra opción para quitar los signos:

Código Delphi [-]
function UnformatCurr(const CurrStr: string): string;
begin
  Result:= StringReplace(CurrStr, '$', '',[rfReplaceAll]);
  Result:= StringReplace(Result, '.', '',[rfReplaceAll]);
  Result:= StringReplace(Result, ',', '',[rfReplaceAll]);
end;

Ejemplo de uso:

Código Delphi [-]
  ShowMessage(UnformatCurr('$ 2.500.317,25')); // Resultado:  250031725

Saludos

[[nlsgarcia]]

marilinspi,

...una función que me convierta un Currency a String...ej. 1.195,60 a '119560'...

Otra forma :

Código Delphi [-]
function NumberToString(Number : String) : String;
var
   i : Integer;
begin
   for i := 1 to Length(Number) do
      if Number[i] in ['0'..'9'] then
         Result := Result + Number[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Number : String;
begin
   Number := '1.234.567.890,99';
   ShowMessage(NumberToString(Number)); // Muestra : 123456789099
end;

Espero sea útil

Nelson.

[marilinspi]

hola, gracias a todos por sus respuestas... lo resolví así

Código Delphi [-]
StringReplace((CurrToStrF(Percepcion,ffFixed,2)), '.', '', [rfReplaceAll])

Gracias

[ecfisa]

Empezado por marilinspi

hola, gracias a todos por sus respuestas... lo resolví así

Código Delphi [-]
StringReplace((CurrToStrF(Percepcion,ffFixed,2)), '.', '', [rfReplaceAll])

Gracias

Hola marilinspi.

Me alegra que lo hayas solucionado y de forma simple.

Solo quería agregar que ese código, dependiendo del valor que tengas definido como separador decimal, puede no dar solución a lo que solicitabas en el primer mensaje.

Mejor es:

Código Delphi [-]
   StringReplace((CurrToStrF(Percepcion,ffFixed,2)), DecimalSeparator, '', [rfReplaceAll]);

Saludos

[marilinspi]

Gracias Ecfisa, muy buena tu sugerencia...