delphi将字符串写入txt文本，每次写入，末尾自动加换行符，不会清空之前的数据

最新推荐文章于 2020-12-24 12:47:39 发布

滴答丶滴答

最新推荐文章于 2020-12-24 12:47:39 发布

阅读量3.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.youkuaiyun.com/qq_24932309/article/details/78350633

delphi 专栏收录该内容

8 篇文章

订阅专栏

本文提供了一个使用Delphi进行文件操作的示例代码，包括创建目录、读写文件等基本功能。通过这个例子，读者可以了解到如何用Delphi语言处理文件及目录的基本方法。

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

var
astr: string;
sList: TStrings;
path: string;
begin
sList := TStringList.Create;
path :='E:\servercs\openbrake_machine.txt';
try
if not DirectoryExists(ExtractFilePath(path)) then
begin
ForceDirectories(ExtractFilePath(path));
end;
if FileExists(path) then
begin
sList.LoadFromFile(path);
end;
sList.Add('1'+','+'川a11111');//#13#10
sList.SaveToFile(path);
finally
sList.Free;
end;