1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
{$mode delphi} program tbreintroduce; type parent = object constructor init; end; child = object(parent) constructor init(a : byte);reintroduce; end; constructor parent.init; begin end; constructor child.init(a : byte); begin end; begin end.