equal
deleted
inserted
replaced
50 operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
50 operator / (const z1: hwFloat; const z2: LongInt) z : hwFloat; |
51 |
51 |
52 operator < (const z1, z2: hwFloat) b : boolean; |
52 operator < (const z1, z2: hwFloat) b : boolean; |
53 operator > (const z1, z2: hwFloat) b : boolean; |
53 operator > (const z1, z2: hwFloat) b : boolean; |
54 |
54 |
55 function cstr(const z: hwFloat): string; |
55 function cstr(const z: hwFloat): shortstring; |
56 function hwRound(const t: hwFloat): LongInt; |
56 function hwRound(const t: hwFloat): LongInt; |
57 function hwAbs(const t: hwFloat): hwFloat; |
57 function hwAbs(const t: hwFloat): hwFloat; |
58 function hwSqr(const t: hwFloat): hwFloat; |
58 function hwSqr(const t: hwFloat): hwFloat; |
59 function hwSqrt(const t: hwFloat): hwFloat; |
59 function hwSqrt(const t: hwFloat): hwFloat; |
60 function Distance(const dx, dy: hwFloat): hwFloat; |
60 function Distance(const dx, dy: hwFloat): hwFloat; |
259 b:= false |
259 b:= false |
260 else |
260 else |
261 b:= (z1.QWordValue > z2.QWordValue) xor z2.isNegative |
261 b:= (z1.QWordValue > z2.QWordValue) xor z2.isNegative |
262 end; |
262 end; |
263 |
263 |
264 function cstr(const z: hwFloat): string; |
264 function cstr(const z: hwFloat): shortstring; |
265 var tmpstr: string; |
265 var tmpstr: shortstring; |
266 begin |
266 begin |
267 str(z.Round, cstr); |
267 str(z.Round, cstr); |
268 if z.Frac <> 0 then |
268 if z.Frac <> 0 then |
269 begin |
269 begin |
270 str(z.Frac / $100000000:1:15, tmpstr); |
270 str(z.Frac / $100000000:1:15, tmpstr); |