Загрузка и сохранение данных компонента в файл (.fmx)

[Серж]

 

Компонент в основном состоит из динамического двумерного массива, который является банком для рисунков. Компонент в Windows -приложении работает нормально, без ошибок.Только при заполнении массива (используется BMP, размером 48х48 px) с помощью Edit banka, используются другие процедуры.

В FMX- приложении при сохранении изменений, произведенные в приложении,данные компонента с массивом сохраняются в файле (.fmx), а при загрузке загружает в массив только первую картинку, после этого появляется ошибка:

Error loading the Bitmap failed.

 

Я не могу понять, где я допустил ошибку.

 

 

procedure TBitmapCellBank.DefineProperties(File:TFiler);
begin
   inherited;
   Filer.DefineBinaryProperty('Pictures', LoadPictures, SavePictures, True);
end;
procedure TBitmapCellBank.SavePictures(Stream:TStream);
var I,J,Buf:Integer;
begin
   Stream.WriteBuffer(FImageWidth, SizeOf(FImageWidth));
   Stream.WriteBuffer(FImageHeight, SizeOf(FImageHeight));
   Buf:= Length(FImages);
   Stream.WriteBuffer(Buf, SizeOf(Buf));
   for I:= 0 to High(FImages) do
   begin
     Buf:= Length((FImages[I]);
     Stream.WriteBuffer(Buf, SizeOf(Buf));
     for J:= 0 to High(FImages[I]) do
     begin
       FImages[I,J].SaveToStream(Stream);
     end;
   end;
end;
procedure TBitmapCellBank.LoadPictures(Stream:TStream);
var Buf,I,J:Integer;
begin
   Stream.ReadBuffer(Buf, SizeOf(Buf));
   ImageWidth:= Buf;
   Stream.ReadBuffer(Buf, SizeOf(Buf));
   ImageHeight:= Buf;
   Stream.ReadBuffer(Buf, SizeOf(Buf));
   SetLength((FImages,Buf);
   try
     for I:= 0 to High(FImages) do
     begin
       Stream.ReadBuffer(Buf, SizeOf(Buf));
       SetLength(FImages[I], Buf);
       for J:= 0 to High(FImages[I]) do
       begin
         FImages[I,J]:= TBitmap.Create;
         FImages[I,J].LoadFromStream(Stream);
       end;
     end;
   except
     on E.Exception do
     begin
       ShowMessage('Ошибка' + E.Message);
     end;
   end;
end;

 

 

CellBanks.zip

Изменено 5 июля пользователем Серж
устранить ошибки