Google, Het mirakel van de 21e eeuw!!!!
code:
1
2
3
4
5
6
7
8
9
| function ExtToStr(e:extended):string;
var
p:pChar;
begin
getmem(p,30);
FloatToText(p,e,fvExtended,ffGeneral,10,10);
result:=p;
freemem(p);
end; |
Localhost, sweet localhost
Thanks
Google, Het mirakel van de 21e eeuw!!!!
Verwijderd
S := FloatToStr(extended);
Lijkt me nog simpeler. En voor uitgebreidere fuctionaliteit zie FloatToStrF
Lijkt me nog simpeler. En voor uitgebreidere fuctionaliteit zie FloatToStrF