如何在Delphi中将诸如TMemo等文本控件的内容保存为TXT文件？
答案:2 悬赏:30 手机版
解决时间 2021-03-18 15:52
- 提问者网友：城市野鹿
- 2021-03-18 09:14
如何在Delphi中将诸如TMemo等文本控件的内容保存为TXT文件？
最佳答案
- 五星知识达人网友：第幾種人
- 2021-03-18 09:49
楼上的你会错意了.人家问的是怎么和SaveDialog关联.
方法如下:
现在窗口里添加一个Button,一个Memo 以及一个SaveDialog 然后在Button的 OnClick事件中这样写道:
procedure TForm1.button1click(sender: TObject);
begin
if SaveDialog1.Execute then //SaveDialog1 是一个TSaveDialog 组件
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
就这么几句代码,简单吧.
顺便说一下 第一行代码的意义 SaveDialog中的 Execute 是一个返回值为Boolean型的函数,它的意义就是 当用户选择了保存对话框中的取消的按钮的时候它为false 用户选择了要保存的内容按确认时候则返回true ,这样做可以防止用户在没有选择保存的时候，程序继续执行下面的代码,而SaveDialog 的文件名为空的错误,
方法如下:
现在窗口里添加一个Button,一个Memo 以及一个SaveDialog 然后在Button的 OnClick事件中这样写道:
procedure TForm1.button1click(sender: TObject);
begin
if SaveDialog1.Execute then //SaveDialog1 是一个TSaveDialog 组件
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
就这么几句代码,简单吧.
顺便说一下 第一行代码的意义 SaveDialog中的 Execute 是一个返回值为Boolean型的函数,它的意义就是 当用户选择了保存对话框中的取消的按钮的时候它为false 用户选择了要保存的内容按确认时候则返回true ,这样做可以防止用户在没有选择保存的时候，程序继续执行下面的代码,而SaveDialog 的文件名为空的错误,
全部回答
- 1楼网友：人间朝暮
- 2021-03-18 10:35
用TStringList类吧，给你个小例子
var
sl :TStringList;
begin
sl := TStringList.Create;
sl.Text := memo1.Lines.Text;
sl.SaveToFile('config.txt');
sl.Free;
end;
至于TSaveDialog，不用写程序，可以直接选择路径的，你可以添一个edit1，用edit1显示所选好的路径，然后点button进行保存就好了
var
sl :TStringList;
begin
sl := TStringList.Create;
sl.Text := memo1.Lines.Text;
sl.SaveToFile('config.txt');
sl.Free;
end;
至于TSaveDialog，不用写程序，可以直接选择路径的，你可以添一个edit1，用edit1显示所选好的路径，然后点button进行保存就好了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯