＋设为首页 ＋添加到收藏夹
我用SAVEDIALOG对话框，保存文件时，我想控制文件名，如何控制，也就是说，我让SAVEDIALOG对话框保存的一定是 .jpg 为扩展名的 文件，当用户选择其他类型，并试图保存时，弹出“错误”对话框 ，如何解决。
我的思路，觉得要用控制字符串的最后三个字符，如果最后三个字符不是 JPG，则就弹出“错误”对话框 。不知道，这个问题 怎么解决。
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;
Filter := 控制文件名.jpg|*.jpg;
tsavedialog的defaultext设为jpg
procedure 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;
