我用SAVEDIALOG对话框,保存文件时,我想控制文件名,如何控制,也就是说,我让SAVEDIALOG对话框保存的一定是 .jpg 为扩展名的 文件,当用户选择其他类型,并试图保存时,弹出“错误”对话框 ,如何解决。
我的思路,觉得要用控制字符串的最后三个字符,如果最后三个字符不是 JPG,则就弹出“错误”对话框 。不知道,这个问题 怎么解决。
我的思路,觉得要用控制字符串的最后三个字符,如果最后三个字符不是 JPG,则就弹出“错误”对话框 。不知道,这个问题 怎么解决。
解决方案 »
- delphi xe3编译的程序,右键菜单是英文的,怎么整成中文的啊?
- 请问TBitmap类的 ScanLine方法有什么作用?
- 我想把程序运行时候的一个变量值存放到程序的版本信息里面。 另外再写一个程序来改变这个EXE程序的版本信息。如何实现?
- TIdFTP.List的问题,麻烦高手进来看看!
- DELPHI5 怎么实现XML文件编程啊,只要给出例子给30分,在线等
- 小弟请教!!!请各位大哥赐教!谢谢!
- 用indy udp如何传输图片?
- 非常简单的问题
- 哪里有MSchart控件的下载?
- 为什么RegisterServiceProcess不兼容WindowsXP???
- 有谁知道李维的邮箱?
- 大家讨论一下Delphi+oracle和delphi+mssql应用和趋势?
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;
begin
if SaveDialog1.Execute then
if ExtractFileExt(SaveDialog1.FileName)='jpg' then
Image1.Picture.SaveToFile(SaveDialog1.FileName)
else ShowMessage('wrong'); //不是jpg后缀的处理
end;