На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: jack128, Rouse_, Krid
  
    > Сохранение набора экземпляров классов в списке
      ExpandedWrap disabled
        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 написать
      ExpandedWrap disabled
        L.Free;

      Автор: s-mike
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0197 ]   [ 16 queries used ]   [ Generated: 27.04.24, 05:25 GMT ]