Erro procedure TACBrSPEDContabil.InicializaBloco(Bloco: TACBrSPED)

[Rodrigo - Digibyte]

Boa tarde, a procedure como está gera um erro AV, para corrigir voltei ao que era anteriormente, seguem os dois blocos para análise:

Com erro:

   Bloco.NomeArquivo  := FACBrTXT.NomeArquivo;
   Bloco.LinhasBuffer := FACBrTXT.LinhasBuffer;
   Bloco.Gravado      := False ;
   Bloco.Conteudo.Clear;  <<---- erro AV

Sem erro:

   Bloco.NomeArquivo  := FACBrTXT.NomeArquivo;
   Bloco.LinhasBuffer := FACBrTXT.LinhasBuffer;
   Bloco.Gravado      := False ;
   if not Assigned(Bloco.Conteudo) then
     Bloco.Conteudo := TStringList.Create;
   Bloco.Conteudo.Clear;

Obs: repositório trunk

Edited August 11, 2015 by Digibyte

[Juliomar Marchetti]

Boa tarde

anexe a unit para que seja analisada!

[Rodrigo - Digibyte]

Foi, sem a correção ...

 

ACBrSpedContabil.pas

[duiliolobianco]

Estou com este mesmo problema. Já sabem como resolver? O ACBr está atualizado.

Corrigindo, no meu está dando o erro bem na parte em que corrigiu. Dizendo que a propriedade (Bloco.Conteudo) é Read-Only e não aceita o método Bloco.Conteudo := TStringList.Create;

Corrigido, o svn não estava substituindo o ACBrTXTClass.pas foi só deletar e atualizar novamente.