Question

求delphi 选择savedialog对话框可保存两种文件类型的语句？

要求在“文件名”栏只写文件名称，不写后缀的情况下，如何成功另存为用户选择的格式？

procedure TForm1.Button1Click(Sender: TObject);
begin
SaveDialog.Filter :='textFile(*.txt)|*.txt|docFile(*.doc)|*.doc|AllFile(*.*)|*.*';
SaveDialog.FilterIndex :=1;
SaveDialog.DefaultExt :='txt';
//下边怎么写
end;
SaveDialog.Filter :='wavFile(*.wav)|*.wav|mp3file(*.mp3)|*.mp3|AllFile(*.*)|*.*';
SaveDialog.FilterIndex :=1;
SaveDialog.DefaultExt :='wav';
恕我学艺不精。你的程序固然能通过。但要是上述txt、doc分别替换成wav、mp3(即以上代码）,则wav可直接保存，而MP3需由wav转换而来。希望是若按默认类型即保存成wav，若选择MP3类型则还要通过转换代码而保存成MP3文件。转换语段在这里略去。如此上述程序框架应作怎样的改动？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
FileExt: string;
begin
SaveDialog.Filter :='textFile(*.txt)|*.txt|docFile(*.doc)|*.doc|AllFile(*.*)|*.*';
SaveDialog.FilterIndex :=1;
SaveDialog.DefaultExt :='txt';
//下边代码
if SaveDialog.Execute then
begin
FileExt := ExtractFileExt(SaveDialog.FileName);
if SameText(FileExt, '.txt') then
begin
{保存文本格式的代码}
end
else if SameText(FileExt, '*.doc') then
begin
{保存doc格式的代码}
end
else
begin
{保存文本格式的代码}
end;

end;
end;

Answer 2

对SaveDialog.filename 在做一次判断不就可以了，不用纠结！
SaveDialog所做的只是文件名的确定，并没有真的保存！所以待分析处理完毕后在真正保存即可。

Answer 3

SaveDialog的执行只是返回文件路径而已，剩下的都可以自己定义。

Answer 4

-------------理解错了，不好意思，我也答不上