convertir resultado FormatFloat

[camiz]

hola amigos necesito resolver este problemita.

si tengo un resultado FormatFloat, ejm.

$. 2,535.00 ---- a este resultado quiero obtenerlo asi 2535


espero su ayuda...

[ecfisa]

Hola camiz.

Según entiendo, en una variable de tipo cadena tenes el contenido '$. 2,535.00' y queres convertirlo a tipo entero.

Si es eso y para ese caso podes hacer:

Código Delphi [-]
...
var
  v: Integer;
  s: string;
begin
  s := '$. 2,535.00';
  s := StringReplace(s, '$.', '', [rfReplaceAll]);
  s := StringReplace(s, ',', '', [rfReplaceAll]);
  s := StringReplace(s, '.', ',', [rfReplaceAll]);
  v := Trunc(StrToFloat(s));
  ...

Saludos.

[[nlsgarcia]]

camiz,

Empezado por camiz

...tengo un resultado FormatFloat, ejm. $. 2,535.00 ---- a este resultado quiero obtenerlo asi 2535...

Revisa este código:

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

procedure TForm1.Button1Click(Sender: TObject);
var
   s : String;
begin
   s := '$. 2,535.00';
   ShowMessage(UnFormatFloat(s));
end;

El código anterior convierte un string resultante de la función FormatFloat en un string sin formato y sin la parte decimal el cual puede ser utilizado según se requiera.

Espero sea útil

Nelson.

[camiz]

gracias, ecfisa y nlsgarcia por su ayuda el problema esta resuelto.