tb0040.pp 537 B

1234567891011121314151617181920212223242526272829
  1. { Old file: tbs0045.pp }
  2. { shows problem with virtual private methods (might not be a true bugs but more of an incompatiblity?) the compiler warns now if there is a private and virtual method }
  3. TYPE
  4. tmyexample =object
  5. public
  6. constructor init;
  7. destructor done; virtual;
  8. private
  9. procedure mytest;virtual; { syntax error --> should give only a
  10. warning ? }
  11. end;
  12. constructor tmyexample.init;
  13. begin
  14. end;
  15. destructor tmyexample.done;
  16. Begin
  17. end;
  18. procedure tmyexample.mytest;
  19. begin
  20. end;
  21. Begin
  22. end.