savedialog怎样使用? — 编程爱好者社区

您所在位置：社区首页 — Delphi讨论区 — savedialog怎样使用?

主题：savedialog怎样使用?

ahmatjan [专家分：0] 发布于 2006-11-28 21:27:00

大家好！　我是一个初学者　我希望大家多多教我
我想编一段程序,实现以下功能
form1上放了一个memo组件，我想MEMO1里面的内容进行保存，再放了一个savedialog
但是怎样进行保存，具体语句怎么写？
还望各位高手大侠指教,在下多谢了

本帖地址： http://bbs.pfan.cn/post/206607.html

回复列表（共2个回复）

沙发

长尾兔 [专家分：3630] 发布于 2006-11-29 07:58:00

//form上放一个button1

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Filter:='文本文件';
  SaveDialog1.FileName:='*.Txt';
  if SaveDialog1.Execute then memo1.Lines.SaveToFile(savedialog1.FileName);
end;

板凳

ahmatjan [专家分：0] 发布于 2006-11-29 22:57:00

谢谢你! 以后我还多多请教你!

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：savedialog怎样使用?

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：savedialog怎样使用?

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）