Error: Procedure directive "REINTRODUCE" not allowed in implementation section
Original Reporter info from Mantis: dmz73 @dmz73
-
Reporter name:
Original Reporter info from Mantis: dmz73 @dmz73
- Reporter name:
Description:
When class with generic function is defined in a project file compiler will report above error if a procedure is reintroduced.
Steps to reproduce:
Compile the following example project:
program Project1;
{$mode delphi}
type
{ TClass }
TClass = class
public
class function ToString<T>(A: T; B: string): string; reintroduce;
end;
{ TClass }
class function TClass.ToString<T>(A: T; B: string): string;
begin end;
begin
TClass.ToString<integer>(1, '');
end.
Mantis conversion info:
- Mantis ID: 37261
- OS: Windows
- OS Build: 10
- Platform: x86_64
- Version: 3.2.0
- Fixed in version: 3.3.1
- Fixed in revision: 37261 (#941b51b6)