equal
deleted
inserted
replaced
186 end; |
186 end; |
187 |
187 |
188 function StrToInt(s: shortstring): LongInt; |
188 function StrToInt(s: shortstring): LongInt; |
189 var c: LongInt; |
189 var c: LongInt; |
190 begin |
190 begin |
191 val(s, StrToInt, c) |
191 val(s, StrToInt, c); |
|
192 {$IFDEF DEBUGFILE} |
|
193 if c <> 0 then |
|
194 writeln(f, 'Error at position ' + IntToStr(c) + ' : ' + s[c]) |
|
195 {$ENDIF} |
192 end; |
196 end; |
193 |
197 |
194 function FloatToStr(n: hwFloat): shortstring; |
198 function FloatToStr(n: hwFloat): shortstring; |
195 begin |
199 begin |
196 FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue)) |
200 FloatToStr:= cstr(n) + '_' + inttostr(Lo(n.QWordValue)) |