Execução Do Programa Do Lazarus

[Guest --Maria --]

Olá!

Eu criei um menu no lazarus utilizando o componente dele para isso só que na hora de

executar ele dá erro na declaração da variável form no ( ; ) sendo que eu nem mexi no fonte é

o fonte gerado pelo próprio programa.

[Vivendo&Aprendendo]

Olá...

posta ai o fonte (a parte que da o erro).

Alexandre

[Guest --Maria --]

Olá!

Eu criei um menu no lazarus utilizando o componente dele para isso só que na hora de

executar ele dá erro na declaração da variável form no ( ; ) sendo que eu nem mexi no fonte é

o fonte gerado pelo próprio programa.

[Guest --Maria --]

unit menupri;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Menus, DB,

memds, StdCtrls, ExtCtrls, ActnList, ComCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

MainMenu1: TMainMenu;

MenuItem1: TMenuItem;

MenuItem2: TMenuItem;

MenuItem3: TMenuItem;

MenuItem4: TMenuItem;

MenuItem5: TMenuItem;

StatusBar1: TStatusBar;

procedure Datasource1StateChange(Sender: TObject);

procedure IdleTimer1Timer(Sender: TObject);

procedure MenuItem4Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end

var

Form1: TForm1; {O erro ocorre justamente aqui como segue: menupri.pas(32,1) Fatal: Syntax error, ";" expected but "VAR" found}

implementation

{ TForm1 }

procedure TForm1.Datasource1StateChange(Sender: TObject);

begin

end

procedure TForm1.IdleTimer1Timer(Sender: TObject);

begin

end

procedure TForm1.MenuItem4Click(Sender: TObject);

begin

end

initialization

{$I menupri.lrs}

TForm1.MainMenu1

end

[Churc]

opa

o erro está no end abaixo de public que não tem um ; (ponto e vírgula)

private

{ private declarations }

public

{ public declarations }

end; <- Coloque um ponto e vírgula aqui

No lazarus não sei porque nunca usei, mas se for igual as syntax do Delphi

então deve ser isso

abraço