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

[Mattias Gaertner]

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

Mattias