17 lines
176 B
ObjectPascal
17 lines
176 B
ObjectPascal
|
type a = class
|
|||
|
|
procedure p(a:integer); virtual;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
type b = class(a)
|
|||
|
|
procedure p(var a:integer); override;
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end.
|