Fórum Dúvida de Novato! #337121
01/02/2007
0
Olá galera estou começando a programar no Delphi e estou fazendo um programinha aqui, só que quando vou compilar ele, esta aparecendo esse erro, o que seria?
http://i101.photobucket.com/albums/m65/Atletavirtual/erro_delphi.jpg
http://i101.photobucket.com/albums/m65/Atletavirtual/erro_delphi.jpg
Erikcastilho
Curtir tópico
+ 0
Responder
Posts
01/02/2007
Jarabeucp
Amigo fica complicado falar qual é o erro e a solução, pois pode ser centenas de causas, mais faça o seguinte, poste o erro, se puder o código tb q ta dando erro, para q possomos ver causas e soluções.
ok!!
Boa Sort.
ok!!
Boa Sort.
Responder
Gostei + 0
01/02/2007
Erikcastilho
O Código é esse:
Depois que eu compilo aparece esse código
E ele para na linha
Application.Run;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, Buttons, ExtCtrls, StdCtrls;
type
TfrmPrincipal = class(TForm)
MainMenu1: TMainMenu;
Clientes1: TMenuItem;
Cadastro1: TMenuItem;
AlteraoExcluso1: TMenuItem;
Clientes2: TMenuItem;
Cadastro2: TMenuItem;
AlteraoExcluso2: TMenuItem;
Agenda1: TMenuItem;
EfetuarAgendamento1: TMenuItem;
CompraVenda1: TMenuItem;
Produtos1: TMenuItem;
Produtos2: TMenuItem;
Venda1: TMenuItem;
Venda2: TMenuItem;
ReposiodeEstoque1: TMenuItem;
Cadastro3: TMenuItem;
AlteraoExcluso3: TMenuItem;
ControledoCaixa1: TMenuItem;
Movimento1: TMenuItem;
N1: TMenuItem;
RetiradadoCaixa1: TMenuItem;
SuprimentodoCaixa1: TMenuItem;
Ferramentas1: TMenuItem;
Calculadora1: TMenuItem;
Backup1: TMenuItem;
N2: TMenuItem;
Fechamento1: TMenuItem;
CaixaAtual1: TMenuItem;
N3: TMenuItem;
RelatriodosCaixas1: TMenuItem;
Ajuda1: TMenuItem;
Sobre1: TMenuItem;
Sair1: TMenuItem;
Minimizar1: TMenuItem;
EncerraroPrograma1: TMenuItem;
Consulta1: TMenuItem;
Clientes3: TMenuItem;
Fornecedores1: TMenuItem;
Vendas1: TMenuItem;
Produtos3: TMenuItem;
Panel1: TPanel;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton1: TSpeedButton;
Label2: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure EncerraroPrograma1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
procedure TfrmPrincipal.EncerraroPrograma1Click(Sender: TObject);
begin
exit;
end;
end.
Depois que eu compilo aparece esse código
program Project1;
uses
Forms,
Unit1 in ´Unit1.pas´ ;
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TfrmPrincipal, frmPrincipal);
Application.Run;
end.
E ele para na linha
Application.Run;
Responder
Gostei + 0
01/02/2007
Facc
um erro que eu encontrei, se foi isso que eu entendi está nessa procedure
Pelo nome, vc quer fechar o programa... o [b:0a523bd46b]Exit[/b:0a523bd46b] não serve para fazer isso, use [b:0a523bd46b]Close[/b:0a523bd46b], ou [b:0a523bd46b]Application.Terminate[/b:0a523bd46b]
e o que deu pra identificar na imagem que vc mandou é que, provavelmente vc deve ter um Edit na tela, mas no código não tem o TEdit, que é a Classe.
procedure TfrmPrincipal.EncerraroPrograma1Click(Sender: TObject); begin exit; end;
Pelo nome, vc quer fechar o programa... o [b:0a523bd46b]Exit[/b:0a523bd46b] não serve para fazer isso, use [b:0a523bd46b]Close[/b:0a523bd46b], ou [b:0a523bd46b]Application.Terminate[/b:0a523bd46b]
e o que deu pra identificar na imagem que vc mandou é que, provavelmente vc deve ter um Edit na tela, mas no código não tem o TEdit, que é a Classe.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)