nested types with interfaces
Original Reporter info from Mantis: alexvins
-
Reporter name: Alexander Shishkin
Original Reporter info from Mantis: alexvins
- Reporter name: Alexander Shishkin
Description:
using nested type with interface implementation is impossible.
project1.lpr(31,1) Error: Undefined symbol: WRPR_PPROJECT1_TPARENT_
__TCHILD__IINT_
_0__SYSTEM_TINTERFACEDOBJECT_
__QUERYINTERFACETGUID
formal$$LONGINT
project1.lpr(31,1) Error: Undefined symbol: WRPR_PPROJECT1_TPARENT_
__TCHILD__IINT_
_1__SYSTEM_TINTERFACEDOBJECT_
___ADDREF$$LONGINT
project1.lpr(31,1) Error: Undefined symbol: WRPR_PPROJECT1_TPARENT_
__TCHILD__IINT_
_2__SYSTEM_TINTERFACEDOBJECT_
___RELEASE$$LONGINT
project1.lpr(31,1) Error: Undefined symbol: WRPR_PPROJECT1_TPARENT_
__TCHILD__IINT_
_3__P
PROJECT1_TPARENT__TCHILD_
__TEST
project1.lpr(31,1) Fatal: There were 4 errors compiling module, stopping
Steps to reproduce:
library project1;
{$mode delphi}{$H+}
uses
Classes
{ you can add units after this };
{$R *.res}
type
IInt = interface
procedure Test;
end;
TParent = class
private
type
TChild = class (TInterfacedObject, IInt)
public
procedure Test;
end;
end;
procedure TParent.TChild.Test;
begin
end;
begin
end.
Mantis conversion info:
- Mantis ID: 18610
- OS: Windows
- OS Build: XPSP3
- Build: trunk
- Platform: i386
- Version: 2.5.1
- Fixed in version: 2.6.0
- Fixed in revision: 16818 (#0f35da07)