Hi Bung Matrix,
The following code should be faster than what you have:
function FloatToStrNP(val: Extended): string;
var
a: Integer;
txt: string;
begin
txt:= FloatToStrF(val, ffFixed, 18, 18);
for a:= Length(txt) downto 1 do if (txt[a]<>'0') then Break;
Result:= Copy(txt, 1, a);
end;
Hope this helps
Raymond
Bung Matrix <[EMAIL PROTECTED]>
Sent by: advanced_delphi@yahoogroups.com
08/10/2008 10:54 PM
The problem with FloatToStrF is, the digit parameter limit the output of
resulted string, e.g:
FloatToStrF(1/1000,10,10) will result 0.001000000. That's why I made the
function FloatToStrNP which will convert the floating-point into string
using FloatToStrF and then remove all trailing zeros (1/1000 = 0.001).
This function of mine works just fine, but I wonder if there are much more
efficient way to convert float to string without scientific notation and
no trailing zeros, because my function involves many (yes, I consider it
many...) operations which can affect the performance of the rapid
calculation I'm going to perform with it.
---------------------
CoolKid K-Qha
http://kha.web.id
---------------------
--- On Sun, 8/10/08, Sean Roberts <[EMAIL PROTECTED]> wrote:
From: Sean Roberts <[EMAIL PROTECTED]>
Subject: RE: [advanced_delphi] FloatToStrF without zero padding
To: advanced_delphi@yahoogroups.com
Date: Sunday, August 10, 2008, 9:37 PM
Please provide a sample number (val) that gets the padding you don't want.
I would like to use this number to see if I can get the function work the
way you want it to.
XFX nForce 680i LT SLI Socket 775 | Intel Core 2 Duo E6750 OC:1600 FSB @
3.2 MHz | 2 x OCZ SLI 1024MB PC6400 DDR2 800MHz| XION 600w PSU | CM
Stacker 200 ATX/BTX Case | EVGA GeForce 8800 GTS 512 | WD SATA 74 GB
Raptor (boot/system) , WD SATA 500 GB (storage) | Windows XP Pro, SP3 |
Patient and supportive significant other
To: advanced_delphi@ yahoogroups. com
From: [EMAIL PROTECTED] com
Date: Sun, 10 Aug 2008 00:05:27 -0700
Subject: [advanced_delphi] FloatToStrF without zero padding
Greeting,
Did anyone know how to use FloatToStrF without zero padding? I need it
because my code must avoid the usage of scientific notation, thus I used
FloatToStrF with ffFixed format. But later I found out that the output of
resulted string was padded with zeros. For temporarily, I use these code
to remove all zero padding but still there must be some way which is more
efficient...
---code begin---
function TDMod.FloatToStrNP( val : extended) : string ;
var
a : integer ;
txt,retval : string ;
begin
txt := FloatToStrF( val,ffFixed, 18,18) ;
retval := '' ;
for a:=Length(txt) downto 1 do
begin
if (txt[a]='0') and (retval <> '') then retval := txt[a]+retval
else if txt[a]<>'0' then retval := txt[a]+retval ;
end ;
Result := retval ;
end;
---code end---
------------ ---------
CoolKid K-Qha
http://kha.web. id
------------ ---------
