On 05 Apr 2009, at 17:12, JoshyFun wrote:
TCustomFoo=class(TObject);
TDerivedFoo=class(TCustomFoo)
procedure Myprocedure(); virtual;
end;
TDeDerivedFoo=class(TDerivedFoo)
procedure MyProcedure(); override;
end;
And in the code:
var
MyObj: TCustomFoo;
begin
MyObj:=TDeDerivedFoo.Create();
TD
Hello Jonas,
Sunday, April 5, 2009, 2:09:33 PM, you wrote:
JM> If you have a class hierarchy tbase->tderived1->tderived2 with a
JM> virtual method called "vmethod", and nowhere in the program there is a
JM> call to vmethod, then it is unused. Or if it is only called using
JM> tderived2 instances,