mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
17 lines
206 B
ObjectPascal
17 lines
206 B
ObjectPascal
{%norun}
|
|
{$mode objfpc}
|
|
type
|
|
TMyClass = class
|
|
protected
|
|
Field1 {$IFDEF DUMMY}, Field2 {$ENDIF} : Boolean;
|
|
procedure Proc;
|
|
end;
|
|
|
|
procedure TMyClass.Proc;
|
|
begin
|
|
Field1:=True;
|
|
end;
|
|
|
|
begin
|
|
end.
|