Cleanup
This commit is contained in:
parent
987ec8a430
commit
7258f2fa72
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue