销售管理软件版1楼: 这是我写的一段联系的代码，当弹出保存文件对话框的时候，我把文件名从wl改成wl2的时候showmessage出来的信息就变成了c:＼wl2，后缀名就没了，怎么办啊？？我这里举个例子是wl.txt，但也可能是wl.jpg，也可能是wl.mdb。别告诉我SaveDialog1.DefaultExt:= ＇＇TXT＇＇; 啊，因为不一定是文本文件。

procedure TForm1.Button1Click(Sender: TObject);
var
filename,filename2: string;
begin
filename := ＇＇c:＼wl.txt＇＇;
SaveDialog1.FileName := Filename;
if SaveDialog1.Execute then
begin
filename2 := SaveDialog1.FileName;
showmessage(filename2);
end
end;

2楼: SaveDialog1.DefaultExt:= ＇＇TXT＇＇; 如服装店记账软件

3楼: 老兄,不会啊,我在Delphi拿你的代码测试了一下,可以正常弹出wl2.txt啊.

4楼: 你的电脑里，显示文件设置没有显示后缀名

5楼: 你双击一下刚保存的文件，能否打开

6楼: 不错，设置一下DefaultExt属性

销售管理软件版7楼: 怎么样了楼主，快点回复

8楼: 我这里举个例子是wl.txt，但也可能是wl.jpg，也可能是wl.mdb。别告诉我SaveDialog1.DefaultExt:= ＇＇TXT＇＇; 啊，因为不一定是文本文件。

9楼: 我的电脑后缀名隐藏的，因为大多数客户电脑的后缀名也是隐藏的，我不能让客户去显示后缀名吧？？？？？

10楼: 在windows里打开一个目录,然后点击工具菜单里的文件夹选项,点查看那一项,里面有一项＂隐藏已经文件扩展名＂,把勾去掉.就成.

11楼: 那里是对话框可以选择的文件后缀名
你想要对方有什么选择，就设置什么

12楼: 我在重复一遍：
我总不能让客户去显示后缀名吧？？？？？ 客户很笨的。。 如仓库管理软件

13楼: 哇晕,那你就在程序里写吧.如下.

procedure TForm1.Button1Click(Sender: TObject);
var
filename,filename2,fileext: string;
begin
filename := ＇＇c:＼wl.txt＇＇;
fileext := ExtractFileExt(filename); //取文件扩展名
SaveDialog1.FileName := Filename;
if SaveDialog1.Execute then
begin
filename2 := SaveDialog1.FileName + fileext; //将扩展名加在后面
showmessage(filename2);
end
end;

销售管理软件版14楼: benhacker高手，您的代码在客户改文件名的时候好使了，不改的时候就出问题了！！！

15楼: procedure TForm1.Button1Click(Sender: TObject);
var
filename,filename2,fileext: string;
begin
filename := ＇＇c:＼wl.txt＇＇;
fileext := ExtractFileExt(filename); //取文件扩展名
SaveDialog1.FileName := Filename;
if SaveDialog1.Execute then

begin
filename2 := SaveDialog1.FileName;
if ExtractFileExt(filename2) = ＇＇＇＇ then filename2 := filename2 + fileext; //如果没有扩展名,就原扩展名加在后面

showmessage(filename2);
end
end;

16楼: 高