UC知道Delphi新手求助关于文件的读写的
来源：百度知道 编辑：UC知道 时间：2024/09/23 13:27:57
我用mianmenu控件做了一个下拉的菜单，文件一栏中有打开和保存，然后用win32里面的richedit，请问怎么实现打开功能并能在richedit中显示和编辑，还有保存的功能要怎么实现
Delphi自己有个例子啦.
就是你说的这整个功能了.
添加Dialgs下的OpenDialog控件
在打开的时候添加如下代码
var
f: TextFile;
stmp: string;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.filename);
Reset(f);
while not Eof(f) do
begin
Readln(f, stmp);
RichEdit1.Lines.Add(stmp);
end;
CloseFile(f);
end;
end;
保存的时候添加：
RichEdit1.Lines.SaveToFile('c:\test.txt');