fpcsrc/tests/webtbs/tw7285.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

{ %opt=-Sehw -vwh -S2 }

type myclass=class(TObject)
      procedure myproc(); 
     end; 

procedure myclass.myproc(); 
var avalue:integer=100; 
begin
     writeln(avalue); 
end; 


var
  c: myclass;
begin
  c := myclass.create;
  c.myproc;
  c.free;
end.