equal
deleted
inserted
replaced
557 i:= 0; |
557 i:= 0; |
558 while(i < 7) do |
558 while(i < 7) do |
559 begin |
559 begin |
560 assign(logFile, shortstring(UserPathPrefix) + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
560 assign(logFile, shortstring(UserPathPrefix) + '/Logs/' + logfileBase + inttostr(i) + '.log'); |
561 Rewrite(logFile); |
561 Rewrite(logFile); |
562 rwfailed:= (IOResult() <> 0); |
562 // note: IOResult is a function in pascal and a variable in pas2c |
|
563 rwfailed:= (IOResult <> 0); |
563 if (not rwfailed) then |
564 if (not rwfailed) then |
564 break; |
565 break; |
565 inc(i) |
566 inc(i) |
566 end; |
567 end; |
567 end; |
568 end; |