2
0

tchlp86.pp 404 B

123456789101112131415161718192021222324252627282930
  1. { %FAIL } {???}
  2. program tchlp86;
  3. {$ifdef fpc}
  4. {$mode delphi}
  5. {$endif}
  6. {$apptype console}
  7. type
  8. TFoo = class
  9. class var
  10. Test: Integer;
  11. end;
  12. TFooHelper = class helper for TFoo
  13. class constructor Create;
  14. end;
  15. class constructor TFooHelper.Create;
  16. begin
  17. TFoo.Test := 42;
  18. end;
  19. begin
  20. Writeln('TFoo.Test: ', TFoo.Test);
  21. if TFoo.Test <> 42 then
  22. Halt(1);
  23. Writeln('ok');
  24. end.