Class helper doesn't support procedure overload
Original Reporter info from Mantis: Mophy Xiong
-
Reporter name: Mophy Xiong
Original Reporter info from Mantis: Mophy Xiong
- Reporter name: Mophy Xiong
Description:
The following code can not be compiled, it produces 'Error: identifier idents no member "SayHello"'.
program ClassHelperTest;
{$mode delphi}
uses
SysUtils;
type
TObjectHelper = class helper for TObject
procedure SayHello(const I: Integer); overload;
procedure SayHello(const S: string); overload;
end;
procedure TObjectHelper.SayHello(const I: Integer); overload;
begin
Writeln('Hello ', I);
end;
procedure TObjectHelper.SayHello(const S: string); overload;
begin
Writeln('Hello ', S);
end;
var
Obj: TObject;
begin
Obj := TObject.Create;
try
Obj.SayHello('FPC');
finally
Obj.Free;
end;
end.
Mantis conversion info:
- Mantis ID: 22329
- OS: MS Windows
- OS Build: 7.0 Home
- Version: 2.6.0
- Fixed in version: 3.0.0
- Fixed in revision: 21764 (#71c13190)