TObjectList ( 积分: 50 )

    item:=TItem.Create;
    fs:=TFileStream.Create(FFileName,fmOpenRead and fmShareDenyWrite);
    ms:=TMemoryStream.Create;

    FItemList.Clear;//清空表情列表

    while fs.Position<fs.Size do//如果文件指针未到底
    begin
      try
        ReadHead;//读文件头
        fs.Read(FileNameLength,4);
        fs.Read(ImageLength,4);
        fs.Read(Item.FFileName,FileNameLength);//读入文件名
        ms.SetSize(Filel);
        fs.Read(ms.Memory^,Filel);
        jpg:=TJPEGImage.Create;
        jpg.LoadFromStream(ms);
        Item.FImage.LoadFromStream(ms);//这句会有AV错误,也就是无效内存访问错误,不知为何
        ItemList.Add(Item);
      except
        on E:Exception do
          begin
            ShowMessage(E.Message);
            ItemList.Clear;
            Exit;
          end;
      end;

function TEmotions.Add(Value: TItem): Integer;
begin
  Result:=FList.Add(value);//FList为TObjectList,也在TItemList.Create中创建过了
end;