uchlp82.pp 260 B

123456789101112131415161718192021222324
  1. unit uchlp82;
  2. {$ifdef fpc}
  3. {$mode objfpc}{$H+}
  4. {$endif}
  5. interface
  6. type
  7. TFoo = class
  8. strict private
  9. Test1: Integer;
  10. private
  11. Test2: Integer;
  12. strict protected
  13. Test3: Integer;
  14. protected
  15. Test4: Integer;
  16. end;
  17. implementation
  18. end.