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;
原文：http://www.cnblogs.com/cnby/p/3987686.html