fpcsrc/tests/webtbs/tw0839.pp


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

{$mode tp}
program notcom;

type demo=object
          constructor init;
          destructor done(x:longint);
          end;

constructor demo.init;
begin
end;

destructor demo.done(x:longint);
begin
end;

begin
end.