blob: 25810f94efefc12d686ab7b67b158320a1f2a20f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
unit uw13345b;
{$mode DELPHI}
interface
uses uw13345c;
implementation
type
TTestIntf=class(TInterfacedObject,ITestIF)
procedure Test;
end;
procedure TTestIntf.Test;
begin
writeln('OK');
end;
initialization
GTEST:=TTestIntf.Create;
writeln('ASSIGNED IF');
end.
|
