Пишу 3д-движок. У меня накопилось множество классов, которые характеризуют 3д-объект, причем классы разные. Например, класс "Яблоко" и класс "Автомобиль" (избегаю реальных названий). Все они наследуются от одного класса "ТриДеОбъект".

Сколько объектов каждого класса будет во время исполнения - ХЗ. А нужно загнать их всех в один массив и вызывать, допустим функцию "Нарисовать", которая у каждого класса называется одинаково, но исполняется по свойму.

Вопрос. Как проще всего вызвать функцию "Нарисовать" у всех объектов?

Используй TObjectList. В нем перебирай все объекты и вызывай что-то типа этого:

Код

for i:= 0 to ObjList.Count - 1 do    T3DObject(ObjList.Items[i]).Draw;

Это сообщение отредактировал(а) markowww - 3.9.2005, 11:13

Допустим, было

Код

type T3DObject=class(TObject)  procedure Draw; ... TCar=class(T3dObject)  procedure Draw; ... var c:TCar;

И я вызову

Код

T3DObject(c).Draw;

Какая функция вызовется, T3DObject.Draw или TCar.Draw?

А ты попробуй так:

Код

type T3DObject=class(TObject)  procedure Draw; virtual; abstract; //функцию нужно переопределить в потомке, в T3DObject её определять не нужно (хотя можно и без abstract;, такогда будет то же самое, но нужно будет определить функцию ... TCar=class(T3dObject)  procedure Draw; override; ... var c:TCar; ... begin T3DObject(c).Draw; //теперь вызовется TCar.Draw, а в твоём примере T3DObject.Draw

Большое спасибо.
Попробую