tw29923.pp 268 B

1234567891011121314151617181920212223242526272829303132
  1. {$mode objfpc}
  2. {$r+}
  3. type
  4. tc = class
  5. f: longint;
  6. procedure test;
  7. end;
  8. procedure tc.test;
  9. procedure nest;
  10. var
  11. l1: longint;
  12. begin
  13. f:=-1;
  14. l1:=-1;
  15. dec(f,l1*120);
  16. end;
  17. begin
  18. nest;
  19. end;
  20. var
  21. c: tc;
  22. begin
  23. c:=tc.create;
  24. c.test;
  25. c.free;
  26. end.