Rev 2 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 2 | Rev 17 | ||
|---|---|---|---|
| Line 199... | Line 199... | ||
| 199 | TRY |
199 | TRY |
| 200 | FileMode := 0; {Turbo default is 2 for R/W; 0 is for R/O} |
200 | FileMode := 0; {Turbo default is 2 for R/W; 0 is for R/O} |
| 201 | CRCValue := $FFFFFFFF; |
201 | CRCValue := $FFFFFFFF; |
| 202 | if Length(FromName) >= MAX_PATH then |
202 | if Length(FromName) >= MAX_PATH then |
| 203 | begin |
203 | begin |
| - | 204 | try |
|
| 204 | MyASSIGNFile (FromFile2,FromName); |
205 | MyASSIGNFile (FromFile2,FromName); |
| 205 | MyRESET (FromFile2); |
206 | MyRESET (FromFile2); |
| 206 | error := GetLastError; |
207 | error := GetLastError; |
| - | 208 | except |
|
| - | 209 | error := 1; |
|
| - | 210 | end; |
|
| 207 | end |
211 | end |
| 208 | else |
212 | else |
| 209 | begin |
213 | begin |
| 210 | ASSIGN (FromFile,FromName); |
214 | ASSIGN (FromFile,FromName); |
| 211 | {$I-} RESET (FromFile,1); {$I+} |
215 | {$I-} RESET (FromFile,1); {$I+} |