fcl-passrc error with helpers
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
program Project1;
{$MODE DELPHI}
uses sysutils;
type
AStringHelper = record helper for string
function toint:integer; overload;
end;
function AStringHelper.toint:integer;
begin
result:=strtoint(self)
end;
begin
writeln('10'.toint);
end.
give "Expected "," at token "." in file E:\zcad\other\pudgb\bin\passrcerrors.pas at line 13 column 15"
Mantis conversion info:
- Mantis ID: 31825
- Fixed in version: 3.1.1
- Fixed in revision: 36682 (#d6552989)
- Target version: 3.2.0