marilinspi,
Cita:
...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
public
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)); 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.