hedgewars/uFloat.pas
changeset 2905 f3c79f7193a9
parent 2784 1a2e3c7c6a46
child 2933 02af54eb7e1e
--- a/hedgewars/uFloat.pas	Mon Mar 01 19:20:43 2010 +0000
+++ b/hedgewars/uFloat.pas	Mon Mar 01 19:54:33 2010 +0000
@@ -52,7 +52,7 @@
 operator < (const z1, z2: hwFloat) b : boolean;
 operator > (const z1, z2: hwFloat) b : boolean;
 
-function cstr(const z: hwFloat): string;
+function cstr(const z: hwFloat): shortstring;
 function hwRound(const t: hwFloat): LongInt;
 function hwAbs(const t: hwFloat): hwFloat;
 function hwSqr(const t: hwFloat): hwFloat;
@@ -261,8 +261,8 @@
       b:= (z1.QWordValue > z2.QWordValue) xor z2.isNegative
 end;
 
-function cstr(const z: hwFloat): string;
-var tmpstr: string;
+function cstr(const z: hwFloat): shortstring;
+var tmpstr: shortstring;
 begin
 str(z.Round, cstr);
 if z.Frac <> 0 then