Építsd osztályú fa
Emberek, kérje hogyan programozott építeni osztályú fa (fa az öröklés), és nem regisztrálják, önkényesen választott osztály. Törölni kell őket, és minden ősök és leszármazottak.
Nem hiszem, hogy általában ez lehetséges.
Ősök minden egyszerűen: TObject.ClassParent
De a leszármazottai - dőzsölés, de nincsenek szokásos módszerekkel.
Írt 30 másodperc ;-)
eljárás TForm1.FormCreate (Sender: TObject);
var
# XA0; # XA0; tmp: # XA0; TClass;
kezdődik
# XA0; TMP: = TDBGrid;
# XA0, próbálja
# XA0; # XA0; ismétlés
# XA0; # XA0; # XA0; ListBox1.AddItem (tmp.ClassName, nulla);
# XA0; # XA0; # XA0; TMP: = tmp.ClassParent;
# XA0; # XA0; amíg false;
# XA0, kivéve
# XA0; end;
végén;
De jobb megismételni cserélni, miközben tmp <> nulla do
> Írásbeli 30 másodperc alatt ;-)
Köszönöm :)
De az ellenkező irányba, mint a. például:
Hogyan juthat TMyForm származó TForm, vagy akár TObject.
TMyForm - nincs regisztrálva.
> DmitryFox # XA0; (22.08.06 17:47) [6]
És a logikus gondolkodásra? Miért kellene az ős kell tudni valamit utódaik?
> És a logikus gondolkodásra? Miért kellene az ős kell valamit
> Legyen tisztában utódaik?
Minden szülő tudja, utódaik :)
Böngésszen Symbol, mint az azonos # XA0; működik.
Lana, bármilyen módon - így semmilyen módon.
> És a logikus gondolkodásra? Miért kellene az ős kell valamit
> Legyen tisztában utódaik?
>
Különösen akkor, ha a „két Penza és egy kamcsatkai” :-)
> DmitryFox # XA0; (22.08.06 17:54) [9]
>
>> És a logikus gondolkodásra? Mi a csudának kellene valami ős
> a
>> tudni utódaik?
>
> Minden szülő tudja, utódaik
Nos, az osztályok ad okot a programozók, hogy ez nekik, és kérje.
ez csak nem történik meg, és tenne.
Osztályok jegyzéke a program ott, egyszer találkoztunk a hálózaton, hogyan lehet elérni vele. És akkor minden egyszerű - át ezen a listán és alakítani egy fa.
> DmitryFox # XA0; (22.08.06 17:54) [9]
> Minden szülő tudja, utódaik :)
Nagyon kétlem, hogy ez lehetséges az általános esetben.
például abban az esetben, letölti runtime csomagot át loadpackage.
Duc. mi akadályozza váltja ki ugyanazt az eljárást a csomag?
> Böngészés Symbol, mint az azonos # XA0; működik.
A Delphi van előfordítóra. Tud valamit, de ő volt az isten rendelte :)