Delphi7文件操作常用函数一

liang08114

于 2019-01-03 09:40:32 发布

阅读量376

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/liang08114/article/details/85677332

delphi 专栏收录该内容

51 篇文章

订阅专栏

本文详细介绍了一种在Delphi7中进行文件操作的方法，包括如何添加日志信息到指定文件，通过示例代码展示了使用TextFile进行读写操作的过程。无论文件是否存在，程序都能正确追加或创建并写入消息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Delphi7文件操作常用函数一相应Delphi文章列表：https://blog.youkuaiyun.com/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;