Pārlūkot izejas kodu

+ Example did not close open files

michael 27 gadi atpakaļ
vecāks
revīzija
ba17acc6a8
1 mainītis faili ar 2 papildinājumiem un 0 dzēšanām
  1. 2 0
      docs/refex/ex6.pp

+ 2 - 0
docs/refex/ex6.pp

@@ -20,4 +20,6 @@ begin
   Until (NumRead=0) or (NumWritten<>NumRead);
   Write ('Copied ',Total,' bytes from file ',paramstr(1));
   Writeln (' to file ',paramstr(2));
+  close(fin);
+  close(fout);
 end.