[DELPHI]Erro de memória

Galera,vocês sabem a causa desse erro e como corrigí-lo?   quebrando a cuca com isso gente

Não entendo muito de Delphi, mais pelo os meu programas que faço em C++ e java, me parece que algum erro de acesso a componentes ou uma classe que não criada, ou um objeto que ja destruiu.

Esse é o erro básico de acesso(Access Violation at Address) posta teu código pra gente, e dá um Debug e mostra qual é a linha que gera o erro.





[]s

O código é só esse '-'

unit Unit16;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Mask, DBCtrls, StdCtrls, Buttons;

type
TForm16 = class(TForm)
Label1: TLabel;
CaixaUsuario: TEdit;
Label2: TLabel;
CaixaSenha: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label3: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label4: TLabel;
CaixaUsuarioDB: TDBEdit;
Label5: TLabel;
CaixaSenhaDB: TDBEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form16: TForm16;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);
begin
DataSource1.DataSet.Locate('Nome de usuário', CaixaUsuario.Text,[]);
if(CaixaUsuarioDB.Text=CaixaUsuario.Text)and(CaixaSenhaDB.Text=CaixaSenha.Text)then
begin
showmessage('Login efetuado com sucesso,bem vindo(a)!');
form1.showmodal;
end
else
showmessage('Nome de usuário ou senha incorretos!');
end;


end.

foi depois desse que passou a bugar '-'

Qual a linha especifica que apontou o erro no debug?
Outra coisa, a conexão está feita corretamente?(abertura do componentes)

Nenhum erro,simplesmente essa mensagem parece vir do além '-'

Voce checou as referência dos objetos criados? parece que algum deles não mais está na memória. Pode ser um formulário ou outro objeto.

Bom, o erro está na 5 do evento de clicar no botão.
- form1.showmodal;

Estás dando um "show" num formulário que não está criado. Terias que criá-lo antes...
Mais ou menos assim:

Código:

procedure TForm16.BitBtn1Click(Sender: TObject);
var
  ANovoFormulario: TForm1;
begin
 DataSource1.DataSet.Locate('Nome de usuário', CaixaUsuario.Text,[]);
 if(CaixaUsuarioDB.Text=CaixaUsuario.Text)and(CaixaSenhaDB.Text=CaixaSenha.Text)then
 begin
   showmessage('Login efetuado com sucesso,bem vindo(a)!');
    ANovoFormulario: TForm1.Create(Self);
    try
      ANovoFormulario.showmodal;
    finally
      ANovoFormulario.Free;
    end;
 end
 else
   showmessage('Nome de usuário ou senha incorretos!');
end;


Ve ai se era isso.
Abraço.

Huhehuehuebrb galera consegui,sabe o que fiz? destrui o form e criei um novo kkkkkkkkk
agora foi de boas

obrigado a todos aê,vou trancar o topico

Huhehuehuebrb galera consegui,sabe o que fiz? destrui o form e criei um novo kkkkkkkkk
agora foi de boas

obrigado a todos aê,vou trancar o topico