View source for CloseFile

<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
procedure CloseFile(var FileHandle TextFile);
</div>

The CloseFile procedure closes an open file. The file must be assigned and opened with Insert, Reset, or Rewrite. The file is closed and the handle is made available for further assignment to the files.<br>

<b>Example</b><br>
<pre>
 var
  myFile : TextFile;
 
 {
  // Try to open the Test.txt file for writing to
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);
 
  // Write a couple of well known words to this file
  WriteLn(myFile, 'Hello');
  WriteLn(myFile, 'World');
 
  // Close the file
  CloseFile(myFile);
 
  // Reopen to append a final line to the file
  Append(myFile);
 
  // Write this final line
  WriteLn(myFile, 'Final line added');
 
  // Close the file
  CloseFile(myFile);
 
  // Reopen the file for reading
  Reset(myFile);
 
  // Display the file contents
  while (not Eof(myFile))
    ReadLn(myFile);
 
  // Close the file for the last time
  CloseFile(myFile);
 
 }
</pre>

<h2> See Also </h2>
* [[File_Handling | File Handling]]