2.如果只判断BMP和JPG的话可以用 if Image1.Picture.Graphic<>nil then Edit1.Text:=Image1.Picture.Graphic.ClassName;
1.CreateDirectory('c:\abc',nil); 2.if Image1.Picture.Graphic<>nil then Edit1.Text:=Image1.Picture.Graphic.ClassName; 或是 var fileprop:string; fileprop:=strrscan(pchar(OpenPictureDialog1.FileName),'.'); fileprop:=LowerCase(copy(str,2,length(str)-1));
if Image1.Picture.Graphic<>nil then
Edit1.Text:=Image1.Picture.Graphic.ClassName;
2.if Image1.Picture.Graphic<>nil then
Edit1.Text:=Image1.Picture.Graphic.ClassName;
或是
var fileprop:string;
fileprop:=strrscan(pchar(OpenPictureDialog1.FileName),'.');
fileprop:=LowerCase(copy(str,2,length(str)-1));
然后这个FILEPROP的属性如果是BMP文件,那个FILEPROP就等于bmp