Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.222.148.124] |
|
Сообщ.
#1
,
|
|
|
var L: TObjectList; ... var i, ii: Integer; begin L := TObjectList.Create(True); for ii := 0 to 19 do for i := 0 to 14 do begin BlockSprite := TBlockSprite.Create(Self); L.Add(BlockSprite); end; ... И еще в OnDestroy написать L.Free; Автор: s-mike |