tests/webtbs/tw34287.pp


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

{ %NORUN }

program tw34287;

{$IFDEF FPC}
 {$MODE DELPHI}
{$ENDIF}

uses
  Classes,
  uw34287a,
  uw34287b;

var
  fooa: uw34287a.TFoo;
  foob: uw34287b.TFoo;
begin
  fooa := uw34287a.TFoo.Create(nil);
  fooa.Bar('');
  foob := uw34287b.TFoo.Create(nil);
  foob.Bar('');
end.