equal
deleted
inserted
replaced
251 cWindSpeed.QWordValue:= 429496;// 0.0001 |
251 cWindSpeed.QWordValue:= 429496;// 0.0001 |
252 cGravity:= cMaxWindSpeed; |
252 cGravity:= cMaxWindSpeed; |
253 |
253 |
254 {$IFDEF DEBUGFILE} |
254 {$IFDEF DEBUGFILE} |
255 {$I-} |
255 {$I-} |
256 for i:= 0 to 7 do |
256 if ParamCount > 0 then |
|
257 for i:= 0 to 7 do |
257 begin |
258 begin |
258 Assign(f, 'debug' + inttostr(i) + '.txt'); |
259 Assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt'); |
259 rewrite(f); |
260 rewrite(f); |
260 if IOResult = 0 then break |
261 if IOResult = 0 then break |
261 end; |
262 end; |
262 {$I+} |
263 {$I+} |
263 |
264 |