[poli-smen]

Сообщение от ThierryH

Проблема в том, что в модуле objects выдает ошибку incompetible types (bitmap и bitmap0).........прошу вас посмотреть, что можно исправить.

Поле bitmap сделай динамическим массивом:

Код:

    { TAnimate }
 
    TAnimate=class(TBase)
      private
         bitmap: array of TBitmap;

А загрузку делай так:

Код:

procedure TAnimate.setBitmap(bitmap0: array of TBitmap);
var
  i: Integer;
begin
  SetLength(bitmap, Length(bitmap0));
  for i := 0 to High(bitmap) do bitmap[i] := bitmap0[i];
end;