Pesquisar na Comunidade

Alguém pode me dizer se está correto esta parte do código mesmo? function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao; begin result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '4'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; Acontece que acabo re-lendo xml e tenho tido problema que o acbr na hora de carregar uma nota que era pra estar com o valor tiNFCe (4) que é o valor que estou usando no momento e ele acaba trazendo o valor tiNFCeA4 (4) . Alterei o código aqui para as linhas abaixo e agora está funcionando: function StrToTpImp(out ok: boolean; const s: string): TpcnTipoImpressao; begin result := StrToEnumerado(ok, s, ['0', '1', '2', '3', '4', '5', '6'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; Aaaa Se estiver correta essa alteração a função que tem acima dessa talvez também tenha que ser alterada de: function TpImpToStr(const t: TpcnTipoImpressao): string; begin result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '4'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end; Para: function TpImpToStr(const t: TpcnTipoImpressao): string; begin result := EnumeradoToStr(t, ['0', '1', '2', '3', '4', '5', '6'], [tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica, tiNFCeA4]); end;