[Lazarus] codetools: class helper: unit1.pas(20, 30) Error: : expected, but for found

[Marcos Douglas]

On Mon, Jan 30, 2012 at 9:30 PM, Mattias Gaertner
<nc-gaertnma at netcologne.de> wrote:
> On Mon, 30 Jan 2012 09:48:58 -0300
> Marcos Douglas <md at delfire.net> wrote:
>
>> Hi,
>>
>> I can't navigate using Ctrl+Shift+C if unit has a class helper.
>> If you try in code below, you got the error: "expected, but for found"
>>
>> But this code compiles without problems.
>>
>> unit Unit1;
>>
>> {$mode objfpc}{$H+}
>>
>> interface
>>
>> uses
>>   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
>>
>> type
>>   TForm1 = class(TForm)
>>   private
>>     { private declarations }
>>   public
>>     { public declarations }
>>     procedure A;
>>     procedure B;
>>   end;
>>
>>   TFormHelper = class helper for TForm1
>>   public
>>     procedure C;
>>   end;
>>
>> var
>>   Form1: TForm1;
>>
>> implementation
>>
>> {$R *.lfm}
>>
>> { TForm1 }
>>
>> procedure TForm1.A;
>> begin
>> end;
>>
>> procedure TForm1.B;
>> begin
>> end;
>>
>> procedure TFormHelper.C;
>> begin
>> end;
>>
>> end.
>
> There is already a bug report:
> http://bugs.freepascal.org/view.php?id=20623

Worked perfectly, thanks.

Marcos Douglas