Just started my first Lazarus project (experienced with FP though) and after some building of the form.... suddenly a strange messege: MainUnit.pas(15,3) Fatal: Syntax error, "IMPLEMENTATION" expected but "identifier TMAINFORM" found.
unit MainUnit;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus,
StdCtrls, ExtCtrls;
{ TMainForm }
TMainForm = class(TForm)
ButtonRefresh: TButton;
ComboBoxGames: TComboBox;
LabelChooseGame: TLabel;
MainMenu1: TMainMenu;
MenuFile: TMenuItem;
MenuClose: TMenuItem;
MenuEdit: TMenuItem;
MenuItemRefreshGameList: TMenuItem;
procedure ComboBox1Click(Sender: TObject);
procedure ComboBoxGamesClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MenuCloseClick(Sender: TObject);
procedure MenuItemRefreshGameListClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
MainForm: TMainForm;
implementation
{ TMainForm }
procedure TMainForm.MenuCloseClick(Sender: TObject);
begin
close;
end;
procedure TMainForm.MenuItemRefreshGameListClick(Sender: TObject);
begin
RefreshGameListProc;
end;
initialization
{$I mainunit.lrs}
end.
I should mention that proc. RefreshGameListProc is defined and even if I comment it out the error occurs.
EDIT: v0.9.25 Beta btw.