savedialog的疑惑。

Question

我用SAVEDIALOG对话框，保存文件时，我想控制文件名，如何控制，也就是说，我让SAVEDIALOG对话框保存的一定是 .jpg 为扩展名的 文件，当用户选择其他类型，并试图保存时，弹出“错误”对话框 ，如何解决。
我的思路，觉得要用控制字符串的最后三个字符，如果最后三个字符不是 JPG，则就弹出“错误”对话框 。不知道，这个问题 怎么解决。

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  ss: string;
begin
  if not SaveDialog1.Execute then exit;
  ss :=SaveDialog1.FileName;
  if UpperCase(Copy(ss,Length(ss) - 3, maxint)) <> '.JPG' then
    ss := ss + '.jpg';
  ShowMessage(ss);
end;

Answer 2

Filter := '控制文件名.jpg|*.jpg';

Answer 3

tsavedialog的defaultext设为jpgprocedure TForm1.Button1Click(Sender: TObject);
begin
 if SaveDialog1.Execute then
  if ExtractFileExt(SaveDialog1.FileName)='jpg' then
   Image1.Picture.SaveToFile(SaveDialog1.FileName)
   else ShowMessage('wrong'); //不是jpg后缀的处理
end;