保存为txt的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
begin
  List := TStringList.Create; //创建List
  if FileExists('C:\123.txt') then  //比如是C:\123.txt
    List.LoadFromFile('C:\123.txt');  //数据读入到List
  List.Add('结果为:');
   List.AddStrings(Memo1.Lines);  //追加Memo文本到List
  List.SaveToFile('C:\123.txt');  //保存
  List.Free;  //释放
end;运行后文本显示:
结果为:
(memo1的内容)希望文本内去掉“结果为:”后面的换行,直接跟memo里的内容,即:结果为:(memo1内容)

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
      List: TStringList;
    begin
      List := TStringList.Create; //创建List
      if FileExists('C:\123.txt') then //比如是C:\123.txt
      List.LoadFromFile('C:\123.txt'); //数据读入到List
      List.Append('结果为:'+Memo1.Text);
      List.SaveToFile('C:\123.txt'); //保存
      List.Free; //释放
    end;
      

  2.   

    直接ADD('结果为:'+Memo1.lines.text)就行了.
      

  3.   

    Stringreplace可以把指定字串换成另一个字串,直接把换行换成空格或''应当可以吧,
    换行回车是#10#13吧
      

  4.   

    字符串连接符"+"经常用到,好好运用起来,连接起来就是了。
    List.AddStrings('结果为:'+Memo1.text); //追加Memo文本到List