equal
deleted
inserted
replaced
820 if (ParamStr(1) <> '') and (ParamStr(2) <> '') then |
820 if (ParamStr(1) <> '') and (ParamStr(2) <> '') then |
821 if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then |
821 if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then |
822 begin |
822 begin |
823 for i:= 0 to 7 do |
823 for i:= 0 to 7 do |
824 begin |
824 begin |
825 assign(f, ExtractFileDir(ParamStr(2)) + '/Logs/' + cLogfileBase + inttostr(i) + '.log'); |
825 assign(f, ExtractFileDir(ParamStr(2)) + '/' + cLogfileBase + inttostr(i) + '.log'); |
826 rewrite(f); |
826 rewrite(f); |
827 if IOResult = 0 then break; |
827 if IOResult = 0 then break; |
828 end; |
828 end; |
829 if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr |
829 if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr |
830 end |
830 end |