mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-04 22:43:52 +02:00
27 lines
396 B
ObjectPascal
27 lines
396 B
ObjectPascal
{ %NORUN }
|
|
|
|
{ class helpers can access (strict) protected, public and published members -
|
|
here: strict protected }
|
|
program tchlp14;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
uses
|
|
uchlp12;
|
|
|
|
type
|
|
TTestHelper = class helper for TTest
|
|
function AccessTest: Integer;
|
|
end;
|
|
|
|
function TTestHelper.AccessTest: Integer;
|
|
begin
|
|
Result := Test3{declaration:uchlp12.TTest.test3};
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|