求一个Delphi的SaveDialog例子，谢谢了！

Question

各位好：我正在做一个文件导出的东西，用到SaveDialog，不知道怎么用，网上代码残缺，希望找个完整的例子，谢谢！顺便问下，delphi自带的例子在哪里？

Answer 1

看要导出的是什么东东哦，，
SaveDialog.Execute

Answer 2

f1 搜索savedialog或者键入savedialog按f1
savedialog1.filter := '*.txt|*.txt';
savedialog1.title:='balabala';
if savedialog1.execute then
···
savedialog1.filename就是返回值

Answer 3

f1 搜索savedialog或者键入savedialog按f1
savedialog1.filter := '*.txt|*.txt';
savedialog1.title:='balabala';
if savedialog1.execute then
···
savedialog1.filename就是返回值

Answer 4

\
{前面的代码}if  SaveDialog1.execute then
begin
  {这里输出文件名} := SaveDialog1.Filename;
  
  {这里继续}end;

Answer 5

主要就是用下面这4个属性/方法,XXX是可以保存成文件的類型，比如是TStrings,TStringList,TFileStream,TMemoryStream...等等SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
if SaveDialog1.Execute then
   XXX.SaveToFile(SaveDialog1.FileName);

Answer 6

刚才怎么刷新都没显示的回帖，现在一刷新就到了7楼，csdn延迟够高的。

Answer 7

谢谢，刚才试了下，可以保存，但是我又试了点击取消，然后就会弹出：是否保存对“BOOK4”的更改？的对话框，对话框有三个按钮，是 否 取消。怎么去掉这个提示？

Answer 8

谢谢，刚才试了下，可以保存，但是我又试了点击取消，然后就会弹出：是否保存对“BOOK4”的更改？的对话框，对话框有三个按钮，是 否 取消。怎么去掉这个提示？