fpcsrc/tests/webtbs/tw8180.pp


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

{ %recompile }

{$mode objfpc}

uses uw8180;

type
  tcl=class(TInterfacedObject,XStr)
  end;

var
  x : tcl;
begin
  x:=tcl.create;
  x._Addref;
end.