Guest --Priscila -- Postado Março 20, 2007 Denunciar Share Postado Março 20, 2007 AO TERMINAR UM PROCEDIMENTO QUANDO CHEGA NO ULTIMO ENDA NA HORA DE SAIR, DA ACCESS VIOLATION NA MINHA PROCEDURE O QUE SERÁ? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Vivendo&Aprendendo Postado Março 20, 2007 Denunciar Share Postado Março 20, 2007 Olá...Verifica se não tem nenhum POST sobrando antes desta procedure... e se possível post seu código ai..Alexandre Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest Priscila Ricardo Andrade Postado Março 20, 2007 Denunciar Share Postado Março 20, 2007 o codigo é esse:procedure TfrmMenu.btnPesquisarClick(Sender: TObject);var fornec01: tfornec01; aierro:integer; pcHost,pcDir,pcNive :array[0..79] of char;begin psaux:=''; StrPCopy(pcHost,asHost); StrPCopy(pcDir,asPath); StrPCopy(pcNive,asNivel); aiErro := IniciaServidor(strnew(pchost)); If (aiErro = 0) then AbreBancoDeDados(strnew(pcDir),strnew(pcNive),aiSegur,aiModo); aiErro := ReiniciaSequencial(strnew('fornec01')); If (aiErro = 0) then aiErro := LeProximoRegistroSequencial(strnew('fornec01'),@fornec01); uiTotal := 1; aiErro := ReiniciaSequencial(strnew('fornec01')); If (aiErro = 0) then aiErro := LeProximoRegistroSequencial(strnew('fornec01'),@fornec01); uvDados[1] := TStringList.Create; uvDados[2] := TStringList.Create; While aiErro = 0 do begin psAux := '99.999.999/9999-99'; uvDados[1].Add(Picture(fornec01.a017cgc,psAux)); psAux := ''; uvDados[2].Add(Picture(fornec01.a017nom,psAux)); if fornec01.a017nom[1] = edtBusca.Text then begin sgFornecedores.Cells[0,uitotal] := fornec01.a017nom; inc(uiTotal); end; aiErro := LeProximoRegistroSequencial(strnew('fornec01'),@fornec01); next end; FechaBancoDeDados; FinalizaServidor;end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Março 20, 2007 Denunciar Share Postado Março 20, 2007 OpaVai ser difícil te ajudar assim, visto que você chama várias rotinas dentrodeste clique do botão e o fato de dar erro ai nesta função não quer dizerque o erro esteja exatamente ai e com certeza está nestas rotinas quevocê está chamando...Faça o seguinte, chame a CallStack do Delphi assim que der o Access Violatione veja em qual ponto exatamente acontece o erro...Da uma olhada neste tópico sobre como usar a Call Stack e poste aqui...abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Vivendo&Aprendendo Postado Março 20, 2007 Denunciar Share Postado Março 20, 2007 É Pricila assim realmente é dificil de saber onde está o erro... mas faça segundo o Churc que você iré descobrir em qual rotina está o erro e ai você posta ele aqui, para assim podermos lhe ajudar...Alexandre Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guest --Priscila --
AO TERMINAR UM PROCEDIMENTO QUANDO CHEGA NO ULTIMO ENDA NA HORA DE SAIR, DA ACCESS VIOLATION NA MINHA PROCEDURE O QUE SERÁ?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.