100分低手问题：请问如何使TSaveDialog组件能自动给用户指定的文件名后加扩展名？（内详）

Question

如题，我设了Filter和FilterIndex属性，但只会根据FilterIndex自动过滤显示的文件，但如果用户输入aa，文件类型下拉框选的是html文件(*.htm)，它的FileName返回的是"路径...\aa"，而我期望得到的是"路径...\aa.htm"，请问怎么办？我用的是delphi6.

Answer 1

自己作判断
        if Pos('.',SaveDialog1.FileName)=0 then
        edit1.Text:=SaveDialog1.FileName+'.HMD';
        end else Edit1.Text:=SaveDialog1.FileName;

Answer 2

设置SaveDialog的DefaultExt属性为'.htm'

Answer 3

说错了，DefaultExt属性设为'htm'就可以了，不需要点。

Answer 4

我设过了DefaultExt属性也不好使，请问在什么事件中写，我记得我在TSaveDialog的OnSelectChange事件中写的。

Answer 5

看看HELP SAVEDIALOG应该有这个属性吧

Answer 6

我看了online help可是试着不行。要不我再回去试试？ 我现在上网不大方便啊。
其它朋友如有办法继续给我出出点子，谢过先~

Answer 7

给你一个思路：
保存时可取保存时的文件名，检查其中有没有包括.txt等过滤字符串，如果有则直接保存。
如果没有则加上扩展名，加入方法：
保存时取filterindex，如果为1，则加上第一个过滤的扩展名，如果为2则加上第二个过滤的扩展名....

Answer 8

只要DefaultExt不为空就行，赋个值txt,什么文件都行。
不知楼主出了什么问题？:）