Erro List index out of bounds (1) na unit pcnNFeRTXT.pas

[Neuzivanio Barbosa]

Na unit pcnNFeRTXT.pas, função: TNFeRTXT.LerTxt, está resultando no erro: 'List index out of bounds (1)',  ao executar o seguinte código:

versao := copy(FconteudoArquivo[1], 3, 4)

O código correto é:

versao := copy(FconteudoArquivo[0], 3, 4)

[Juliomar Marchetti]

Boa tarde

favor anexar o fonte alterado e também o arquivo que está usando para ler

pois está parecendo ser erro nele

[Daniel Simoes]

3 horas atrás, Neuzivanio Barbosa disse:

versao := copy(FconteudoArquivo[0], 3, 4)

Se FConteudoArquivo for do tipo String, então ela deve iniciar sempre com 1...

Mas é sempre necessário verificar, se a String não está vazia, caso contrário ocorrerá o erro