Показать сообщение отдельно
  #113  
Старый 24.03.2014, 12:03
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от 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;
Ответить с цитированием