delphi中TMemo和TStringList保存文本文件TXT时去除每行后面回车符（#13）的方法

//字符串保存为文件
function StringToFile(mString: string; mFileName: TFileName): Boolean;
{ 返回字符串保存到文件是否成功 }
var
  vFileChar: file of Char;//通常是以行为单位，将依次写入每一行，而这里是字，则将依次写入每个字
  I: Integer;
begin
  {$I-}
  AssignFile(vFileChar, mFileName);
  Rewrite(vFileChar);
  for I := 1 to Length(mString) do
  Write(vFileChar, mString[I]);
  CloseFile(vFileChar);
  {$I+}
  Result := (IOResult = 0) and (mFileName <> '');
end;

procedure TfrmBomcMoni.Button1Click(Sender: TObject);

var

FileName1,FileName2:string;

ResultList:TStringList;

begin

   ResultList := TStringList.Create;

   ResultList.Add('111111111111111111111111'+#13);
   ResultList.Add('222222222222222222222222'+#13);
   ResultList.Add('333333333333333333333333'+#13);

  FileName1:='D:\1111.txt';

  FileName2:='D:\1111.txt';
  StringToFile(StringReplace(Memo1.Text,#13,'',[rfReplaceAll]), FileName1);

  StringToFile(StringReplace(ResultList .Text,#13,'',[rfReplaceAll]), FileName2);

end;