Здравствуйте, Гость
Воскресенье, 24.09.2017, 16:19
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Как узнать количество экземпляров определенного класса
Как узнать количество экземпляров определенного класса
SavageДата: Среда, 28.09.2011, 22:38 | Сообщение # 1
Ранг 1
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
Необходимо перебрать все объекты и сохранить их свойства в файл.
Пример: есть класс TGLTree, в программе динамически создаются клоны и есть класс TGLFreeForm так же создаю конов.
Далее мне необходимо сохранять свойства всех экземпляров одного класса и другого.Незнаю как сделать помогите wacko
 
skycarДата: Четверг, 29.09.2011, 00:35 | Сообщение # 2
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
А подробнее можешь рассказать, как создаёшь объекты класса? Если пользуешься массивом, то и так ясно, что сколько элементов задействовано, столько и объектов. Например, так, статичный массив
Code

var ObjArr: array[1..10] of TButton;
   I: Cardinal;
begin
  for I:=1 to 10 do
  begin
   ObjArr[I]:=TButton.Create(Form1); // создание в цикле объектов по массиву
  ...
  end;

end;

Если просто насоздавал компонентов, а в имени есть нечто, за что может "ухватиться" цикл, например Obj1, Obj2, Obj3 - здесь имена различаются только цифрой, то вот читай статью здесь же: "Как отыскать по имени компонент"
 
SavageДата: Четверг, 29.09.2011, 02:28 | Сообщение # 3
Ранг 1
Группа: Пользователи
Сообщений: 2
Награды: 0
Репутация: 0
Статус: Offline
Не не массив, делаю так:
model:=TGLFreeForm.CreateAsChild(glSHADOWVOLUME);
тобишь потомков клепаю, у них тка то есть индекс, но он относится ко всем объектам

Добавлено (29.09.2011, 02:28)
---------------------------------------------
Спасибо, придумал теперь тока найти как в сцене эт сделать

 
Форум » Все о Delphi » Начинающим » Как узнать количество экземпляров определенного класса
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz