Tsavedialog 用法

1.

filter 属性： Filter:='模板文件(*.emt)|*.emt;*.erp';      |号前面的显示给用户界面看，后面是文件类型，超过一个的用 分号 分开。

 dlgSave1.Filter:='模板文件(*.emt)|*.emt';
   dlgSave1.FileName:=pData_Current.sName+'.emt';  //在 对话框打开 之前设置为默认保存文件名。
 if dlgsave1.execute then
 begin
   DM.emrpdSaveAs(emrpd,dlgSave1.FileName);
 end;