var fileext:AnsiString; begin fileext:=extractfileext(filelistbox1.filename); fileext:=uppercase(fileext); if (fileext='.BMP') or (fileext='.ICO') or (fileext='.EMF') or (fileext='.WMF') or (fileext='.JPG') or (fileext='.JPEG') then begin image1.Picture.LoadFromFile(filelistbox1.FileName); image1.Width:=image1.Picture.Width; image1.Height:=image1.Picture.Height; end; end;
fileext:AnsiString;
begin
fileext:=extractfileext(filelistbox1.filename);
fileext:=uppercase(fileext);
if (fileext='.BMP') or (fileext='.ICO') or (fileext='.EMF') or (fileext='.WMF')
or (fileext='.JPG') or (fileext='.JPEG') then
begin
image1.Picture.LoadFromFile(filelistbox1.FileName);
image1.Width:=image1.Picture.Width;
image1.Height:=image1.Picture.Height;
end;
end;