Build copac clasa

Oamenii, determina cum să construiască în mod programatic un copac de clasă (arborele de moștenire), și nu sunt înregistrate, inclusiv de clasă aleasă în mod arbitrar. Acestea ar trebui să fie retras și toți strămoșii și descendenții.

Nu cred că, în general, este posibil.

Pentru toți strămoșii pur și simplu: TObject.ClassParent
Dar urmașii - Nasol, nu există mijloace standard.

Scris in 30 secunde ;-)

Procedura TForm1.FormCreate (Expeditor: TObject);
var
# XA0; # XA0; tmp: # XA0; TClass;
începe
# XA0; tmp: = TDBGrid;
# XA0; încercați
# XA0; # XA0; repetare
# XA0; # XA0; # XA0; ListBox1.AddItem (tmp.ClassName, zero);
# XA0; # XA0; # XA0; tmp: = tmp.ClassParent;
# XA0; # XA0, până în fals;
# XA0; cu excepția
# XA0; end;
se încheie;

Dar este mai bine să se repete înlocuit în timp ce tmp <> nil do

> Scris in 30 secunde ;-)

Va multumesc :)
Dar, în direcția opusă ca fiind. de exemplu:

Cum să obțineți TMyForm de la TForm, sau chiar de la TObject.
TMyForm - nu este înregistrat.

> DmitryFox # XA0; (22.08.06 17:47) [6]

Și să se gândească logic? De ce ar trebui să strămoș trebuie să știe ceva despre descendenții lor?

> Și să se gândească logic? De ce ar trebui să strămoș trebuie să facă ceva
> Fiți conștienți de urmașii lor?

Toți părinții știu urmașii lor :)

Răsfoiți Simbol ca la fel # XA0, funcționează.

Lana, în nici un fel - deci în nici un fel.

> Și să se gândească logic? De ce ar trebui să strămoș trebuie să facă ceva
> Fiți conștienți de urmașii lor?
>

Mai ales în cazul în care „două în Penza și unul în Kamceatka“ :-)

> DmitryFox # XA0; (22.08.06 17:54) [9]
>
>> Și să se gândească logic? De ce pe pământ ar trebui să strămoș ceva
> the
>> să știe despre urmașii lor?
>
> Toți părinții știu urmașii lor

Ei bine, clasele de a da naștere la programatori, asta pentru ei și să ceară.

pur și simplu nu se face, și ar face.

Lista de clase într-un program de acolo, sa întâlnit o dată în rețea cum să ajungă la el. Și apoi totul este simplu - treci pe această listă și converti într-un copac.

> DmitryFox # XA0; (22.08.06 17:54) [9]

> Toți părinții știu urmașii lor :)

Mă îndoiesc că acest lucru este posibil, în cazul general.
de exemplu, în cazul descărcării pachetelor de rulare prin loadpackage.

Duc. ceea ce împiedică incita aceeași procedură pe ambalaj?

> Răsfoire simbol ca la fel # XA0, funcționează.

Delphi IDE are precompilatorului. El știe ceva, dar el a fost comandat zeul :)