保存文件的问题?扩展名(10分)

W

why_119

Unregistered / Unconfirmed
GUEST, unregistred user!
SaveDialog1我用这个按件.
一、保存文件的时后我想它自动的加上扩展名。
也就是说我只输入文件名而不用打扩展名。。。
二、保存文件路径的问题.程序的路径我如何得到?
 
1. SaveDialog有filter属性,看看帮助。
2. ExtractFilePath(SaveDialog1.FileName)
 
filter属性...我设了..没用...不行!!
 
if ....execute then
begin
...filename:=....filename+'.txt';
...........
end;
 
在调用 SaveDialog1.Execute 之前设置:

SaveDialog1.DefaultExt := '.txt';



 
SaveDialog1中有一个DefaultExt属性设上就行吗?
 
路径呢?
 
// 路径呢?
在调用 SaveDialog1.Execute 之前设置:

// 默认扩展名
SaveDialog1.DefaultExt := '.txt';
// 初始路径名
SaveDialog1.InitialDir := ExtractFilePath(Application.ExeName);


 
就是这样 ⌒ǒ⌒
 
扩展名自己加
 
用Extractfileext()得到它的扩展名,
用extractfilepath()得到文件的路径
 
DefaultExt 属性
Filter 属生
 
顶部