does inherited inherited work ? as in
procedure TD.DoSomething; Begin Inherited Inherited DoOtherthing; End; 2011/1/15 Andrew Haines <andrewd...@aol.com>: > On 01/14/11 14:38, Torsten Bonde Christiansen wrote: >> Hi List. >> >> Is it possible to jump a couple of levels in the inherited hierarchy >> when calling "inherited" on a method? >> >> A small example of what i'm trying to achieve below (and don't mind the >> incomplete TB class implementation). >> >> Kind regards, >> Torsten Bonde Christiansen. >> >> ============================ >> >> TA = class >> procedure DoSomething; virtual; >> end; >> >> TB = class(TA) >> procedure DoSomething; override; >> end; >> >> TC = class(TB) >> procedure DoSomething; override; >> end; >> >> ..... >> >> procedure TA.DoSomething; >> begin >> ... >> end; >> >> procedure TC.DoSomething; >> begin >> inherited TA.DoSomething; // This is not correct, but exemplifies >> what i'm trying to achieve. >> end; >> > > I *think* I've done this before this way but test it to make sure it works: > > procedure TC.DoSomething: > begin > (Self as TA).DoSomething; > end; > > Regards, > > Andrew > _______________________________________________ > fpc-pascal maillist - fpc-pascal@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-pascal > _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
