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