var
F:textfile;
begin
assignfile(F,'asdf.txt');
reset(F);
try
writeln(F,'asdf');
finally
closefile(F);
end;
end;
F:textfile;
begin
assignfile(F,'asdf.txt');
reset(F);
try
writeln(F,'asdf');
finally
closefile(F);
end;
end;
ShellExecute(Handle, "Open","e:\temp.txt", 0, 0, SW_SHOWMAXIMIZED );
var
F:textfile;
begin
assignfile(F,'asdf.txt');
rewrite(F);
try
writeln(F,'asdf');
finally
closefile(F);
end;
end;
也可以实现判断以下:if FileExists(F) then ....
reset是只读递打开一个文件
rewrite是创建并打开一个文件,对于一个存在的文件,文件将被覆盖
append是项文件中追加文本.