自动将图片加载到Delphi TImage图片（TJPEGImage）

Question

我需要自动将图片加载到TImage中。我可以通过pas文件名找出jpeg的位置。如果文件名是“chapter14screen45”，那么我知道它是文件夹14然后是章节中的images文件夹，那么应该将014.jpeg加载到Image1对象中。

Answer 1

如何将Jpeg图像加载到TImage组件中的示例：

procedure LoadJpgImage(DestImage : TImage ; Name : String);
begin
DestImage.Picture.LoadFromFile(Name);
end;

其中Name是图像的绝对路径，例如：'D:\jpeg\014.jpeg'。

如果您使用的旧版Delphi版本不包含对Jpeg的本机TImage支持，那么您需要找到第三方实现，以便能够将Jpeg图像加载到TImage组件中。