fpcsrc/tests/webtbf/uw0856.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{$MODE objfpc}
unit uw0856;
interface
type
  TMyClass = class
  protected
    constructor Create(x: Integer);
  end;

implementation

constructor TMyClass.Create(x: Integer);
begin
end;

end.