Delphi7文件操作常用函数一 相应Delphi文章列表:https://blog.csdn.net/kimifdw/article/category/1282078
procedure AddLog(sMsg, sFileName: string);
var
text: TextFile;
begin
AssignFile(text,sFileName);
try
if FileExists(sFileName) then
Append(text)
else
ReWrite(text);
Writeln(text, sMsg);
finally
CloseFile(text);
end;
end;