Question

delphi中一些函数的用法，请高手指教

rewrite（）；
append（）；
Assignfile（）；
fileexists（）；
上面的用法，请详细的列出，谢谢！
try这个什么意思？
finally这个什么意思？

Answer 1

功能说明：以可写方式打开文件。如果文件不存在，将会自动创建。使用该函数，将会覆盖文件中的所有内容。

参考实例：

var

F: TextFile; // 声明文本文件类型变量

begin

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

Rewrite(F); // 打开文件。如果文件不存在，将会在C盘中创建MyFile.txt文件。如果文件存在，将会覆盖MyFile.txt中的所有内容。

end;

+++++++++++++++++
Append

功能说明：追加内容到文件中。文件必须要存在。

参考实例：

var

S: String;

F: TextFile;

begin

S := 'This is a book.';

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

Append(F); // 以追加的方式打开文件

Writeln(F, S); // 将S变量中的内容追加到文本尾后。

CloseFile(F); // 关闭文件

end;
++++++++++++++++++++++++
//判断文件是否存在 FileExists
var
f: string;
begin
f := 'c:\temp\test.txt';
if not FileExists(f) then
begin
//如果文件不存在
end;
end;