Jump to content
Fórum Script Brasil
  • 0

[resolvido] Erro No Botão Salvar


robinhocne
 Share

Question

Olá pessoal estou fazendo uns comandos do Botão Salvar:

Esse é o codigo do Botão Salvar:

procedure TFrmTipo.spbsalClick(Sender: TObject);

begin

TxtDes.Enabled := False;

With vCpo Do

begin

Clear;

Add ('Tipo');

Add ('Descricao');

end;

With vVlr Do

begin

Clear;

Add (#39 + TxtTipo.Text + #39);

Add (#39 + TxtDes.Text + #39);

end;

If (Editar) Then

AlterarRegistro('Tipo_Vestuario', vCpo, vVlr, 'Codigo ='+ TxtCod.Text)

Else

IncluirRegistro('Tipo_Vestuario', vCpo, vVlr);

inherited;

end;

Esse é o erro:

Access violation at address 004E54D2 in module 'Loja.exe'.Read of address 00000000.

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0
Olá pessoal estou fazendo uns comandos do Botão Salvar:

Esse é o codigo do Botão Salvar:

procedure TFrmTipo.spbsalClick(Sender: TObject);

begin

TxtDes.Enabled := False;

With vCpo Do

begin

Clear;

Add ('Tipo');

Add ('Descricao');

end;

With vVlr Do

begin

Clear;

Add (#39 + TxtTipo.Text + #39);

Add (#39 + TxtDes.Text + #39);

end;

If (Editar) Then

AlterarRegistro('Tipo_Vestuario', vCpo, vVlr, 'Codigo ='+ TxtCod.Text)

Else

IncluirRegistro('Tipo_Vestuario', vCpo, vVlr);

inherited;

end;

Esse é o erro:
Access violation at address 004E54D2 in module 'Loja.exe'.Read of address 00000000.
robinhocne, por acaso o programa não desvia para linha do erro dentro do editor do Delphi? Seria de mais ajuda.

Como esse seu projeto já está "velho" em termos de dúvidas (você já postou outras), eu sei que vCpo e vVlr são listas de strings (TStrings/TStringList). Por acaso elas estão inicializadas? Parece-me que este erro pode der pelo acesso a estas variáveis sem terem sido inicializadas. Dê uma verificada.

Pirambu!, se quiser entender um pouco sobre a pergunta, dá uma olhada neste outro post do robinhocne.

Link to comment
Share on other sites

  • 0
Erro Dentro do Delphi:
Project Loja.exe raised exception class EAccessViolation with message 'Access violation at address 004E79E7 in module 'Loja.exe'.Read of address 00000000'. Process stopped. Use Step or Run to continue.

acho que não mudou muita coisa. Continuou não ajudando muito. :unsure:

Normalmente quando você executa o programa "por dentro" do Delphi, após ocorrer uma exceção é comum que o fluxo do programa seja desviado para dentro da IDE do Delphi, e neste caso, o cursor normalmente é posicionado na linha (ou próximo a ela) em que a tentativa de acesso a uma variável gera o erro.

Como disse antes:

eu sei que vCpo e vVlr são listas de strings (TStrings/TStringList). Por acaso elas estão inicializadas? Parece-me que este erro pode der pelo acesso a estas variáveis sem terem sido inicializadas. Dê uma verificada.

Voce se deu ao trabalho de ao menos verificar isto? (se o objeto vCpo e vVlr estão inicializados)

Não é fácil advinhar a causa do erro quando não temos o código. Tem que ter uma pista de onde ocorre o erro.

O erro pode ainda estar ocorrendo dentro dos procedimentos AlterarRegistro ou IncluirRegistro. Se você não der uma pista de onde ocorre o erro, não vai dar para ajudar.

Voce sabe utilizar Break-points? Se souber, coloque um no início do procedimento e siga executando passo-a-passo até que ocorra o erro.

"para adicionar um break-point, você tecla F5 (a linha deve ficar vermelha e um ponto vermelho aparece na margem esquerda do editor). Este procedimento adiciona um Break-point (ponto de parada). Quando você executar seu programa (normalmente via F9), ele irá parar nesta linha no momento em que ela estiver para ser executada. Neste momento você estará devolta a IDE do Delphi e poderá utilizar o avaliador de expressões (diálogo Evaluate/Modify) - tecland CTRL+F7. Na caixa Expression você digita o nome variável/componente que você quer verificar/alterar o conteúdo"

Voce poderá verificar se as variáveis citadas estão nulas (nil).

Veja o que consegue.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...