dlgSave1.Filter:='文件.txt|*.txt;|word文件|*.doc,*.docx';
dlgSave1.InitialDir:=GetCurrentDir; //设置为当前路径
dlgSave1.DefaultExt:='.txt';//保存时不需要加后缀名
dlgOpen1.InitialDir:=GetCurrentDir;
转载于:https://www.cnblogs.com/semth/p/7094891.html
dlgSave1.Filter:='文件.txt|*.txt;|word文件|*.doc,*.docx';
dlgSave1.InitialDir:=GetCurrentDir; //设置为当前路径
dlgSave1.DefaultExt:='.txt';//保存时不需要加后缀名
dlgOpen1.InitialDir:=GetCurrentDir;
转载于:https://www.cnblogs.com/semth/p/7094891.html