保存为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.Add('结果为:');
List.AddStrings(Memo1.Lines); //追加Memo文本到List
List.SaveToFile('C:\123.txt'); //保存
List.Free; //释放
end;运行后文本显示:
结果为:
(memo1的内容)希望文本内去掉“结果为:”后面的换行,直接跟memo里的内容,即:结果为:(memo1内容)
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;
换行回车是#10#13吧
List.AddStrings('结果为:'+Memo1.text); //追加Memo文本到List