1234567891011121314151617181920212223242526272829303132 |
- {$mode objfpc}
- {$r+}
- type
- tc = class
- f: longint;
- procedure test;
- end;
- procedure tc.test;
- procedure nest;
- var
- l1: longint;
- begin
- f:=-1;
- l1:=-1;
- dec(f,l1*120);
- end;
- begin
- nest;
- end;
- var
- c: tc;
- begin
- c:=tc.create;
- c.test;
- c.free;
- end.
|