access violation (Quando Uitlizo Until alguma = nil)

Delphi

08/10/2015

Boa Noite!
Estou enfrentando erro de access violation quando estou utilizando o Repeat.
Pego as informações que necessito mas da o erro.
Segue o pedaço do código.
O erro acontece quando chega no until NodeDet = nil
 repeat
       NodeProduto :=  NodeDet.ChildNodes.FindNode('prod');
       cdsItens.Insert;
       cdsItensCodigo.Value := NodeProduto.ChildNodes['cEAN'].Text;
       cdsItensCfop.Value := NodeProduto.ChildNodes['CFOP'].Text;
       cdsItens.Post;
       NodeDet := NodeDet.NextSibling;
       
  until NodeDet = nil ;


Alguém teria Ideia como fazer para não dar mais o acesso violado?
Willgner Silva

Willgner Silva

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

08/10/2015

Você já verificou mesmo que o erro ocorre nessa linha?
Coloque um breakpoint e avalie o valor de NodeDet no momento do erro.
GOSTEI 0
Willgner Silva

Willgner Silva

08/10/2015

Desculpe a demora.
Vou testar novamente e ver aonde ira apresentar o erro.
GOSTEI 0
POSTAR