Ver Mensaje Individual
  #3  
Antiguo 01-04-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
camiz,

Cita:
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.

Última edición por nlsgarcia fecha: 01-04-2013 a las 22:40:58.
Responder Con Cita