SaveToFile后我是一条记录保存进去后打开文件他在最后面会自动换行,怎么取消他的自动换行  自动换行了那我读这个文件会得到我要的数据加一个(0D0A  --> 换行)那么我的数据就会是错的 怎么去掉呢  

解决方案 »

  1.   

    自己写  SAVETOFILE的函数 
    //----- 流写 保存到txt 文件可覆盖可追加 默认是追加 最好用
    function SaveToTxt(const SaveFN, SaveData: string; Append: Boolean = True): Boolean;
    var
      FS: TStreamWriter;
    begin
      Result := False;
      if (SaveFN = '') or (SaveData = '') then
        Exit;
      FS := TStreamWriter.Create(SaveFN, Append, TEncoding.UTF8);  //参数2 True表追加  TEncoding.Default
      try
        FS.Write(SaveData);          //按行写入 FS.Write(SaveData); 没有换行符
        Result := True;
      finally
        FS.Close;
        FS.Free;
      end;
    end;
    D2010的用法
    uses
      IOUtils;//----- 字节流?保存到
    function SaveToTxt(const SaveFN, SaveData: string): Boolean;
    begin
      Result := False;
      if (SaveFN = '') or (SaveData = '') then
        Exit;
      try
        TFile.AppendAllText(SaveFN, SaveData, TEncoding.UTF8); //; {可指定编码格式}
        Result := True;
      except
      end;
    end;
      

  2.   

    其实都是用TStringList类读写的话这个回车换行是无所谓的。