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

2017-10-26 12:21:08来源:CSDN作者:qq_24932309人点击

分享
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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台