Dúvida de Novato!

Delphi

01/02/2007

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


Erikcastilho

Erikcastilho

Curtidas 0

Respostas

Jarabeucp

Jarabeucp

01/02/2007

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.


GOSTEI 0
Erikcastilho

Erikcastilho

01/02/2007

O Código é esse:

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;


GOSTEI 0
Facc

Facc

01/02/2007

um erro que eu encontrei, se foi isso que eu entendi está nessa procedure

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.


GOSTEI 0
POSTAR