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

各位好：

我正在做一个文件导出的东西，用到SaveDialog，不知道怎么用，网上代码残缺，希望找个完整的例子，谢谢！

顺便问下，delphi自带的例子在哪里？

10 个解决方案

#1

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

#2

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

#3

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

#4

\
{前面的代码}

if  SaveDialog1.execute then
begin
  {这里输出文件名} := SaveDialog1.Filename;
  
  {这里继续}

end;

#5

又慢了........

我的沙发。。。

#6

4楼的正解。

#7

主要就是用下面这4个属性/方法,XXX是可以保存成文件的類型，比如是TStrings,TStringList,TFileStream,TMemoryStream...等等

SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
if SaveDialog1.Execute then
    XXX.SaveToFile(SaveDialog1.FileName);

#8

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

#9

引用 2 楼 funxu 的回复:

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

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

#10

引用 2 楼 funxu 的回复:

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

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