Erros na leitura de XML

[Antonio Sidinei Schug]

O commit revision 10822, na tentativa de melhorar ou otimizar o código, introduziu um BUG na leitura de alguns XMLs.

Considerando o XML que contenham ' misturado com ", a leitura por exemplo da versao=, retorna http://www.portalfiscal.inf.br/nfe, que é um valor errado para o atributo

Sugestão, voltar o código antigo

    iPos1 := Pos('"' , ConteudoTag);
    iPos2 := Pos('''', ConteudoTag);

    if iPos1 <> 0 then
      Aspas := '"';

    if (iPos2 <> 0) and (iPos2 < iPos1) then
      Aspas := '''';

 

ou otimizando um pouquinho,

    iPos1 := Pos('"' , ConteudoTag);
    iPos2 := Pos('''', ConteudoTag);

    if (iPos2 <> 0) and (iPos2 < iPos1) then
      Aspas := ''''

    else

      Aspas := '"';