blob: 33db1ad59bc395b859ed615413b34ea665633486 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{ %fail }
program test;
{$MODE DELPHI}
type
XBool = LongBool;
XInt = Int64;
XResult = type XInt;
ITest = interface(IInterface)
function Foobar: XResult;
end;
TTest = class(TInterfacedObject, ITest)
function Foobar: XBool;
end;
function TTest.Foobar: LongBool;
begin
Result := True;
end;
begin
end.
|
