CloseFile


　　功能说明：关闭文件。当对文件的操作完成后，应该使用CloseFile函数关闭打开的文件。

　　参考实例：

　　var

　　 　S: String;

　　 　AllText: String;

　　 　F: TextFile;

　　begin

　　AssignFile(F, 'C:\MyFile.txt'); // 将C:\MyFile.txt文件与F变量建立连接，后面可以使用F变量对文件进行操作。

　　 　Reset(F); // 打开文件

　　 　while not EOF(F) do begin // 使用While循环，一直判断是否到了文件未尾

　　 　　Readln(F, S); // 读取一行文本

　　 　　AllText := AllText + S;

　　 　end;

　　 　CloseFile(F); // 关闭文件

　　end;