append函数的意思及用法

Question

如题所述

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;

Answer 2

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;