怎样在保存为txt文档时取消换行？
保存为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内容）

[解决办法]
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;

[解决办法]
直接ADD('结果为:'+Memo1.lines.text)就行了.