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

[b]FileName1,[b]FileName2:string;[/b]
[/b]

[b]ResultList:TStringList;
[/b]

begin

   ResultList := TStringList.Create;


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

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

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


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

[b]  FileName2:='D:\1111.txt';

  StringToFile(StringReplace(Memo1.Text,#13,'',[rfReplaceAll]), FileName1);
[/b]

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

[b]end;[/b]