如何在Delphi中将诸如TMemo等文本控件的内容保存为TXT文件？

Posted 2023-04-06

必须要用到TSaveDialog控件，因为我要能够选择保存路径和输入txt的文件名。我关键是不知道memo.lines的内容如何与TSaveDialog关联起来。

楼上的你会错意了.人家问的是怎么和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 的文件名为空的错误, 参考技术A 用TStringList类吧，给你个小例子
var
sl :TStringList;
begin
sl := TStringList.Create;
sl.Text := memo1.Lines.Text;
sl.SaveToFile('config.txt');
sl.Free;
end;

至于TSaveDialog，不用写程序，可以直接选择路径的，你可以添一个edit1，用edit1显示所选好的路径，然后点button进行保存就好了

虚拟键盘 - Android - Delphi XE5

【中文标题】虚拟键盘 - Android - Delphi XE5

【英文标题】：Virtual Keyboard - Android - Delphi XE5

【发布时间】：2013-12-27 09:59:40

【问题描述】：

默认情况下，当我单击 TMemo 时，会显示虚拟键盘。 我想要没有自动显示虚拟键盘的 TMemo，我将 Hit Test 设置为 False，但现在我的 TMemo 不可滚动:(

如何在没有虚拟键盘的情况下实现可滚动的 TMemo？

【问题讨论】：

设为只读？没有尝试过（现在无法访问我的 XE5），但它可以工作......

还没有在 XE5 中看到 ReadOnly 属性 :)

所以 FMX 中的 TMemo 不像 VCL 中那样具有 ReadOnly 属性？就像我说的，当时我无法访问我的 XE5，所以我无法验证它。感谢您的澄清...

【参考方案1】：

将“CanFocus”设置为 false。 将“HitTest”设置为 true - 可以在 TMemo 中滚动。