A
archy
Unregistered / Unconfirmed
GUEST, unregistred user!
type
my=class
procedure one
virtual;
end;
mysub=class
procedure one;override;
end;
procedure mysub.one;
begin
//new code here?
inherited one;
// ornew code here?
end
my=class
procedure one
virtual;
end;
mysub=class
procedure one;override;
end;
procedure mysub.one;
begin
//new code here?
inherited one;
// ornew code here?
end