Цитата:
Сообщение от 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;