mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 01:39:35 +01:00
22 lines
273 B
ObjectPascal
22 lines
273 B
ObjectPascal
Type TParent = Object
|
|
Procedure SomeProc;
|
|
end;
|
|
|
|
TChild = Object(TParent)
|
|
Procedure SomeProc; virtual;
|
|
end;
|
|
|
|
|
|
Procedure TParent.someproc;
|
|
Begin
|
|
end;
|
|
|
|
|
|
procedure TChild.Someproc;
|
|
Begin
|
|
end;
|
|
|
|
|
|
|
|
Begin
|
|
end. |