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.