equal
deleted
inserted
replaced
114 _0_005: hwFloat = (isNegative: false; QWordValue: 21474836); |
114 _0_005: hwFloat = (isNegative: false; QWordValue: 21474836); |
115 _0_008: hwFloat = (isNegative: false; QWordValue: 34359738); |
115 _0_008: hwFloat = (isNegative: false; QWordValue: 34359738); |
116 _0_01: hwFloat = (isNegative: false; QWordValue: 42949673); |
116 _0_01: hwFloat = (isNegative: false; QWordValue: 42949673); |
117 _0_02: hwFloat = (isNegative: false; QWordValue: 85899345); |
117 _0_02: hwFloat = (isNegative: false; QWordValue: 85899345); |
118 _0_03: hwFloat = (isNegative: false; QWordValue: 128849018); |
118 _0_03: hwFloat = (isNegative: false; QWordValue: 128849018); |
|
119 _0_07: hwFloat = (isNegative: false; QWordValue: 300647710); |
119 _0_08: hwFloat = (isNegative: false; QWordValue: 343597383); |
120 _0_08: hwFloat = (isNegative: false; QWordValue: 343597383); |
120 _0_1: hwFloat = (isNegative: false; QWordValue: 429496730); |
121 _0_1: hwFloat = (isNegative: false; QWordValue: 429496730); |
121 _0_15: hwFloat = (isNegative: false; QWordValue: 644245094); |
122 _0_15: hwFloat = (isNegative: false; QWordValue: 644245094); |
122 _0_2: hwFloat = (isNegative: false; QWordValue: 858993459); |
123 _0_2: hwFloat = (isNegative: false; QWordValue: 858993459); |
123 _0_25: hwFloat = (isNegative: false; QWordValue: 1073741824); |
124 _0_25: hwFloat = (isNegative: false; QWordValue: 1073741824); |
319 var tmpstr: shortstring; |
320 var tmpstr: shortstring; |
320 begin |
321 begin |
321 str(z.Round, cstr); |
322 str(z.Round, cstr); |
322 if z.Frac <> 0 then |
323 if z.Frac <> 0 then |
323 begin |
324 begin |
324 str(z.Frac / $100000000:1:15, tmpstr); |
325 str(z.Frac / $100000000:1:10, tmpstr); |
325 delete(tmpstr, 1, 2); |
326 delete(tmpstr, 1, 2); |
326 cstr:= cstr + '.' + tmpstr |
327 cstr:= cstr + '.' + tmpstr |
327 end; |
328 end; |
328 if z.isNegative then cstr:= '-' + cstr |
329 if z.isNegative then cstr:= '-' + cstr |
329 end; |
330 end; |