设置文件opendilag、savedilog默认路径和文件类型

dlgSave1.Filter:='文件.txt|*.txt;|word文件|*.doc,*.docx';
dlgSave1.InitialDir:=GetCurrentDir; //设置为当前路径
dlgSave1.DefaultExt:='.txt';//保存时不需要加后缀名
dlgOpen1.InitialDir:=GetCurrentDir;