This commit is contained in:
mysticbbs 2012-09-26 16:49:18 -04:00
parent 987ec8a430
commit 7258f2fa72
1 changed files with 1 additions and 1 deletions

View File

@ -206,7 +206,7 @@ Var
F: File; F: File;
Error: Word; Error: Word;
NumRead: LongInt; NumRead: LongInt;
Begin Begin
Error := 0; Error := 0;
If Not FileExist(FN) Then Error := 8888; If Not FileExist(FN) Then Error := 8888;
If Error = 0 Then assign (f, fn); If Error = 0 Then assign (f, fn);