savedialog自动保存问题。

[sdweihailh]

用dbgrideh文件保存成CSV格式，代码如下：
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := 'file1';
if (ActiveControl is TDBGridEh) then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False);
end;
end;
end;
这样可以进行保存。但是会弹出对话框，让你选择保存的路径。
我想通过单击按钮自动保存到默认的路径，而不弹出对话框，请高手赐教！

[Bear_hx]

if SaveDialog1.Execute then 把这句去掉，这句就是弹那个选择的对话框。
然后这句SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False); 中的SaveDialog1.FileName你用默认文件名替换就可以了。

[sdweihailh]

if SaveDialog1.Execute then 把这句去掉后，确实不弹出对话框，但是更改SaveDialog1.FileName 为
d:\ddd\x.csv提示错误。行不通

[pengxuan]

你把SaveDialog1.Execute去掉后,SaveDialog1.FileName就不能用了,它是空的,当然会出错了
你要保存在哪个目录你直接写就行了
你的这个自动保存用不到SaveDialog的

[auqfiudh]

[Quote=引用 1 楼 Bear_hx 的回复:]
if SaveDialog1.Execute then 把这句去掉，这句就是弹那个选择的对话框。
然后这句SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,False); 中的SaveDialog1.FileName你用默认文件名替换就可以了。
[/Quote]

SaveDialog1.FileName 换一下: 'D:\ddd\'+自定义文件名(String型)+'.CSV'

[lkywlz]

太需要了！学习中