现在窗口里添加一个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 的文件名为空的错误,