如何将已加载的TPicture导入TImage，避免重复读取文件

核心思路是保留第一次加载的TPicture对象，直接将其内容赋值给目标TImage控件，无需再次从磁盘读取文件。具体修改如下：

修改后的代码 #

var
  pict      : TPicture;
  F_Small   : boolean;
  FName     : string;
begin
  F_Small := false;
  pict := TPicture.Create;
  try
    pict.LoadFromFile(FName);  // 仅加载一次
    // 判断图片尺寸
    if (pict.Width < 400) and (pict.Height < 400) then
      F_Small := true;

    with Form1 do
    begin
      if not F_Small then
      begin
        // 大图片：使用imGIF
        imGIF.Picture.Assign(pict);  // 直接赋值已加载的图片
        if imGIF.Picture.Graphic is TGIFImage then
          (imGIF.Picture.Graphic as TGIFImage).Animate := true;
        // 切换面板可见性
        pnlGif.Visible := true;
        imGIF.Visible := true;
        pnlGifsmall.Visible := false;
        imGIFsmall.Visible := false;
      end
      else
      begin
        // 小图片：使用imGIFsmall
        imGIFsmall.Picture.Assign(pict);
        if imGIFsmall.Picture.Graphic is TGIFImage then
          (imGIFsmall.Picture.Graphic as TGIFImage).Animate := true;
        // 切换面板可见性
        pnlGif.Visible := false;
        imGIF.Visible := false;
        pnlGifsmall.Visible := true;
        imGIFsmall.Visible := true;
      end;
    end;
  except
    // 处理加载异常（比如文件损坏、格式不支持等）
    on E: Exception do
      ShowMessage('图片加载失败：' + E.Message);
  end;
  pict.Free;
end;

关键优化点 #

• 避免重复读盘：通过TPicture.Assign方法直接将已加载的图片内容复制到TImage的Picture属性，无需再次调用LoadFromFile。
• 简化异常处理：将所有图片加载、赋值逻辑放在同一个try-except块中，统一处理加载错误，无需重复判断文件是否存在（第一次加载成功则文件必然存在）。
• 类型安全判断：使用is关键字判断图片是否为TGIFImage，避免类型转换出错。

内容的提问来源于stack exchange，提问作者Fred