equal
deleted
inserted
replaced
214 i, t: integer; |
214 i, t: integer; |
215 cnt: Longword; |
215 cnt: Longword; |
216 ar: array[0..Pred(cMAXFORTPOINTS)] of TPoint; |
216 ar: array[0..Pred(cMAXFORTPOINTS)] of TPoint; |
217 p: TPoint; |
217 p: TPoint; |
218 begin |
218 begin |
219 if isRight then Fort:= Pathz[ptForts] + Fort + 'R.txt' |
219 if isRight then Fort:= Pathz[ptForts] + '/' + Fort + 'R.txt' |
220 else Fort:= Pathz[ptForts] + Fort + 'L.txt'; |
220 else Fort:= Pathz[ptForts] + '/' + Fort + 'L.txt'; |
221 WriteToConsole(msgLoading + Fort + ' '); |
221 WriteToConsole(msgLoading + Fort + ' '); |
222 {$I-} |
222 {$I-} |
223 AssignFile(f, Fort); |
223 AssignFile(f, Fort); |
224 Reset(f); |
224 Reset(f); |
225 cnt:= 0; |
225 cnt:= 0; |