想知道TopenDialog如何限定打开默认目录是 本程序所在的文件夹；
TsaveDialog如何使保存文件的时候，无论输不输入后缀都会自动添加后缀。比如我限定filter是“文本文件|*.txt”，保存的时候输入name.txt和name都能保存成为name.txt；
同样，TsaveDialog如何设定为保存的默认路径是当前程序所在的文件夹。
參考答案:默认目录是当前程序所在目录应设置属性InitialDir如：
opendialog1.InitialDir := extractfilepath(application.ExeName);
savedialog1.InitialDir := extractfilepath(application.ExeName);
自动加扩展名的方法如下：
接口部分
uses
strutils;
procedure TForm1.Button3Click(Sender: TObject);
var
ExtName:string;
begin
if savedialog1.Execute then
begin
ExtName := savedialog1.FileName;
if RightStr(ExtName,4)<> RightStr(savedialog1.Filter,4) then
ExtName:= ExtName+ RightStr(Savedialog1.Filter,4);
showmessage(ExtName);
end;
end;