Родительские и дочерние классы

← →
Mild © (2003-09-17 19:16) [0]

Есть унаследованный класс, допустим так
TForm
TForm2
TForm3
......
TForm20
Как можно программным путем получить имена классов всех предков TForm20, начиная от TForm19, заканчивая TForm

← →
jack128 © (2003-09-17 19:20) [1]

а : Tformclass;
begin
a := Tform20;
while a <> Tform do
begin
Memo1.lines.Add(a.ClassName);
a := a.ParentClass;
end;
end;

← →
Skier © (2003-09-17 19:20) [2]

см. TObject.ClassParent

Забыл, там еще привдение типов дабавить нужно.Или a : Tclass;

Родительские и дочерние классы Найти похожие ветки