Erro no Exercicio

[SeuMarcus 0]

Bem pessoal,

 

Estopu fazendo um exercicio de uma apostila que é para fazer um pequeno aplicativo com cadastro de clientes e produtos, só que me deparei em um erro que diz;

 

Program or unit 'Unit1.pas' recursively uses itself

 

Veja o código

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ActnList, ImgList, Menus, ComCtrls, ToolWin;

type
  TFrmMenuPrin = class(TForm)
    Image1: TImage;
    ActionList1: TActionList;
    ActCliente: TAction;
    ActFornec: TAction;
    ActFuncio: TAction;
    ActCatego: TAction;
    ActItens: TAction;
    ActSair: TAction;
    MainMenu1: TMainMenu;
    Cadastros1: TMenuItem;
    Movimentos1: TMenuItem;
    Relatrios1: TMenuItem;
    Clientes1: TMenuItem;
    N1: TMenuItem;
    Fornecedores1: TMenuItem;
    N2: TMenuItem;
    Produtos1: TMenuItem;
    Categorias1: TMenuItem;
    N3: TMenuItem;
    Itens1: TMenuItem;
    Funcionrios1: TMenuItem;
    Funcionrios2: TMenuItem;
    N4: TMenuItem;
    Sair1: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    procedure Close(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMenuPrin: TFrmMenuPrin;

implementation

{$R *.dfm}

procedure TFrmMenuPrin.Close(Sender: TObject);
begin
Close;
end;

procedure TFrmMenuPrin.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := ''+FormatDateTime('hh:nn:ss');
  StatusBar1.Panels[1].Text := ''+FormatDateTime('dddd","dd" de "mmmm" de "yyyy',now);
end;

end.

Qual a resolução possivel?

[Daniel Sanches 0]

tente tirar esta procedure:

 

procedure TFrmMenuPrin.Close(Sender: TObject);

begin

Close;

end;

[SeuMarcus 0]

Daniel Sanches,

 

Retirei o procedure mas continuo o mesmo erro.

 

Alguma outra alternativa??

 

Esqueci de avisar que o erro sempre aparece na primeira linha

 

Vou mostrar o erro na imagem

 

[Daniel Sanches 0]

olha ... olhando assim essa unit ela está correta, se não tem outra alteração feita nela, se quiser,

me manda um e-mail com seu projeto para eu dar uma olhada aki aí posso te ajudar melhor ...

[Raficcha 1]

Que outra Unit está usando a 'Unti1' na primeira clausula 'uses'.

 

O que acontece é o seguinte. Nas units do Delphi, existem duas sessões usses. Uma antes de "Implementation" e a outra a seguir. Nas uses de cima devem ser incluídas apenas units para a criação de objetos e criação de protótipos de funções.

 

O que acontece é o seguinte, exite uma unit que esta utilizando a 'Unit1' na primeira sessão uses (antes de implementation). Só que a 'Unit1' também esta usando ela na sessão uses antes de implementation.

 

Veja isso.

 

ok.