Teste de leitura de xml

[FabioNery]

Boa Tarde a todos, testando a implementação de leitura de arquivo xml em vez de arquivo ini, percebi que a função AnsiSameText chamada pelo StrToEnumerado2 não está achando a string procurada (ex: 'evtServTom', 'evtInfoContri' ) dentro do xml.

Debugando a StrToEnumerado2, vi que o laço for i := Low(AString) to High(AString) é repetido até o final, retornando 0, que é então direcionado para teR1000 em TReinfEventos.LoadFromString (pcnEventosReinf). 

A função utilizada para abrir o xml que usei foi   ACBrReinf1.Eventos.LoadFromFile(OpenDialog1.FileName, True );

Está acontecendo com alguém?

[Italo Giurizzato Junior]

Bom dia Fabio,

Já identifiquei o problema e ainda hoje estrarei enviando para o repositório uma possível correção.

Peço que você atualize os fontes e faça novos testes.