一个关于savedialog的小问题~

如果我希望扩展名根据用户选择的不同文件而变动该怎么办呢？？？比如我在savedialog的filter里设置了两种文件类型，一个是txt，一个是as，如何根据用户选择的文件类型来加上各自的扩展名呢？？？ 请指点一下，谢谢~

解决方案 »

  1.   

    case filterIndex of
    1: strFileName := SaveDialog1.FileName + '.Txt';
    2: strFileName := SaveDialog1.FileName + '.AS';
    3: ....
    end;
      

  2.   

    那请问设置了defaultext以后在设置filterindex会冲突么？还有就是默认的filterindex是1，为什么不能自动加上我设置的第一个扩展名txt呢？？？ 
      

  3.   

    不会的，defaultext是 缺省下的显示的类型 ，filterindex是当前您所选择的类型再列表中的位置，
      

  4.   

    要将另一个文件存成该文件的默认扩展名,可以先调用extractfileext(filename)
    获得文件扩展名myext,尔后在程序中设置savedialog的filter属性为'*'+myext,
    再取用户所输入的文件名与myext合起来存就可以了.
      

  5.   

    1:set defaultext:='txt';
    自己判断文件名,必要时修改
    2:
    if extractfileext(op.filename)<>'txt' then 
      savename:=changefileext(op.filename,'.txt');
      

  6.   

    俺是初学delphi的,能否写一个例子给俺看一下? 谢谢了先~