mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-14 10:53:28 +02:00
20 lines
265 B
ObjectPascal
20 lines
265 B
ObjectPascal
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
type
|
|
c1=class
|
|
Ffont : longint;
|
|
property Font:longint read Ffont;
|
|
end;
|
|
|
|
c2=class(c1)
|
|
function GetFont:longint;
|
|
end;
|
|
|
|
function c2.GetFont:longint;
|
|
begin
|
|
result:=Font;
|
|
result:=inherited Font;
|
|
end;
|
|
|
|
begin
|
|
end.
|