mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 08:19:25 +02:00
bb55a59aaf
* one default properties test * visibility of extended type's symbols * class constructors (I don't know currently whether they are supported or not, because Delphi XE does not bring the "class constructor not allowed" error, but an internal error is created; maybe I should file a bug about this, too) git-svn-id: branches/svenbarth/classhelpers@17098 -
27 lines
337 B
ObjectPascal
27 lines
337 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ test visibility of symbols in the extended type - private }
|
|
program tchlp83;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
{$apptype console}
|
|
|
|
uses
|
|
uchlp82;
|
|
|
|
type
|
|
TFooHelper = class helper for TFoo
|
|
function AccessField: Integer;
|
|
end;
|
|
|
|
function TFooHelper.AccessField: Integer;
|
|
begin
|
|
Result := Test2;
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|