(Resolvido) Repeat until

[renanbg]

Estou com uma rotina assim para ler notas XML de um diretorio.

    try 
      XMLDoc := TXMLDocument.Create(nil); 
      repeat 
        //inicio leitura XML 
        XMLDoc.LoadFromFile(DirectoryListBox.Directory +'\'+ SR.Name); 
        Pai       := XMLDoc.DocumentElement.ChildNodes.FindNode('NFe'); 
        Info      := Pai.ChildNodes.FindNode('infNFe'); 
      .... 
      .... 
      .... 
      until FindNext(SR) <> 0; 
      FindClose(SR); 
    except 
      showmessage('ops, deu um erro'; 
    end;

Tudo funciona bem, mas se por algum motivo uma NFSe estiver neste diretório, uma exceção será gerada na linha abaixo e o codigo é interrompido.  Com isso o sistema não vai ler os demais XML que estão no diretório

 Info      := Pai.ChildNodes.FindNode('infNFe');

Preciso achar uma forma de informar ao usuario que um arquivo não pode ser lido,mas que ao em seguida o laço continue e leia o proximo xml. 

Alguém tem alguma sugestão? 

[Jhonas]

Se o nome do arquivo tiver as letras nfse voce pode filtrar os arquivos do diretorio usando o componente FileListBox linkado ao DirectoryListBox ... altere somente a propriedade Mask do componente FileListBox 

se as letras nfse estiverem dentro do xml, então durante a leitura do xml, voce podera testar o conteudo da linha, para continuar ou desviar o processamento.

verifique dentro do xml da NFe e da NF S-e qual é a linha onde esta essa informação.

abraço

[renanbg]

Bom dia.

Obrigado pela dica.

Foi só testar isso e resolvi.

Abraço