V rodičovi chcem volať metódu potomka. Je to možné?

[Stanislav Hruška]

Kód: Delphi [Vybrat]

1.   TCustomObject = class(TObject)
2.   strict private
3.     procedure DeleteNode; virtual;
4.   public
5.     procedure DeleteRec(const AAutoCommit: Boolean); virtual;
6. ...
7. procedure TCustomObject.DeleteRec(const AAutoCommit: Boolean);
8. ...
9.   DeleteNode
10. ....
11.   TCustomVst = class(TCustomObject)

Rutina DeleteNode patrí logicky do TCustomVst. Ale ten je potomkom TCustomObject a tak sa k nej v TCustomObject neviem dostať.
Má to nejaké riešenie?

[Stanislav Hruška]

To virtual tam nemá byť - je to chyba. No na otázke to nič nemení.
Metóda DeleteNode logicky patrí do TCustomVst. Preto ju chcem presunúť. V triede TCustomControl (moja hlavná trieda používaná veľmi masívne) som robil veľké upratovanie a toto jediné mi tam visí.

[Stanislav Hruška]

Ešte raz otázka, bez ohľadu na uverejnené definície.
V rodičovi chcem volať metódu, ktorá je definovaná v jeho potomkovi.

[Stanislav Hruška]

Jedno z riešení je definovať ju v rodičovi ako abstract. Ale ja ju tam vôbec nechcem

[starous]

Co třeta takto?

Kód: Delphi [Vybrat]

1.   TCustomObject = class(TObject)
2.   public
3.     procedure DeleteRec(const AAutoCommit: Boolean); virtual;
4. ...
5. ....
6.   TCustomVst = class(TCustomObject)
7.   strict private
8.     procedure DeleteNode; virtual;
9.   public
10.     procedure DeleteRec(const AAutoCommit: Boolean); override
11. ...
12. procedure TCustomObject.DeleteRec(const AAutoCommit: Boolean);
13. begin
14. ...
15. end;
16. ...
17. procedure TCustomVst.DeleteRec(const AAutoCommit: Boolean);
18. begin
19. ...
20.   DeleteNode;
21. end;
22.  

Prostě překryješ v potomkovi přímo metodu DeleteRec a pokud je určitá část kódu stejná, tak si jí vyndej do jiné metody.

[Stanislav Hruška]

Hm, ale zas DeleteRec nemá čo robiť v CustomVst Vďaka za námet. Ešte uvidím ako to skončí.
Možno niekto dá iný nápad. To radšej nechám tak ako to je.

[pf1957]

Ešte raz otázka, bez ohľadu na uverejnené definície.
V rodičovi chcem volať metódu, ktorá je definovaná v jeho potomkovi.

To je obecne nemyslny pozadavek: rodic nema nic vedet o tom, ze existuje nejaky jeho potomek a jaky. Takze jedinym resenim je vytvoreni rozhrani, ktere bude definovano na urovni rodice a kazdy potomek ho musi implementovat a rodic bude s temi potomky pres nej komunikovat.

- jednou moznosti je u rodice definovat virtualni metody, ktere pokud chci implementaci vynutit, musi byt abstract
- skutecny interface.

[Stanislav Hruška]

Kedy už začnem poriadne rozmýšľať! (Je to lepšie než to bolo , ale nestačí to ) Chcem na riešenie otázky nestačí.
To moje "logicky patrí do CustomVst" pokuľháva na všetky štyri. To že má v názve niečo Vst nestačí. Hlavne ak CustomObject má definované pole na uloženie VST.
Pritom už mám vedomosti na to , aby som došiel k záveru, ktorý napísal pf1957.

[Stanislav Hruška]

Nechapu co na cem kulha

Nič na ničom. Všetko je v poriadku. pf1957 mi jasne napísal, že vymýšľam somariny.
K tomu virtual som písal, že je to chyba - pozostatok z minulosti a nevšimnutie si toho. Presunul som metódu vyššie, lebo som zistil, že ju nebudem dediť. A virtual tam ostal. Taká nepodstatná vec   - ironicky. Už je to dávno preč.