Pesquisar na Comunidade
Mostrando resultados para as tags ''delphi xe7''.
Encontrado 1 registro
-
Alguém poderia me ajudar nesses codigos abaixo está dando erro no private e var e diz o seguinte erro: expected implementation but received and indentifier private at line 27 e expected the end of file but received var at line 34 unit U_principal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, U_cad_cliente; type TFrmprincipal = class(TForm); TFrmCadClient = class(TForm); MainMenu1= TMainMenu; Cadastro1= TMenuItem; Alunos1= TMenuItem; Modalidades1= TMenuItem; Medidas1= TMenuItem; N1= TMenuItem; Fechar1= TMenuItem; Movimento1= TMenuItem; PagamentosdeMensalidades1= TMenuItem; Sobre1= TMenuItem; procedure Alunos1Click(Sender: TObject); private { Private declarations } public { Public declarations } end. var Frmprincipal: TFrmprincipal; FrmCadCliente: TFrmCadCliente; implementation {$R *.dfm} procedure TFrmprincipal.Alunos1Click(Sender: TObject); begin try if FrmCadCliente = Nil then begin FrmCadCliente = TFrmCadCliente.Create(self); FrmCadCliente.Showmodal; end; except ShowMessage('Erro ao tentar exibir a tela de cadastro de clientes !! '); end; end; end; end.