19 lines
279 B
ObjectPascal
19 lines
279 B
ObjectPascal
type
|
|
T0 = class
|
|
procedure {@}P(); virtual := exit;
|
|
end;
|
|
|
|
T1 = class(T0)
|
|
procedure {!}P(); override := exit;
|
|
end;
|
|
|
|
T2 = class(T0)
|
|
procedure {!}P(); override := exit;
|
|
end;
|
|
|
|
T3 = class(T0)
|
|
procedure {!}P(); override := exit;
|
|
end;
|
|
|
|
begin
|
|
end. |