Delphi7文件操作常用函数一

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;