mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
23 lines
277 B
ObjectPascal
23 lines
277 B
ObjectPascal
{ %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.
|