Range Error Na Function Quebralinhas Do Acbrutil.pas

Marciano · 15 Junho, 2015

Olá pessoal!

Me deparei com "Rage Error" ao fazer testes de emissão de DANFE NFCe utilizando ACBrNFeDANFeESCPOS com impressora Daruma DR700.

Debugando, encontrei um problema na function QuebraLinhas do ACBrUtil.pas que pode afetar mais pessoas.

Segue abaixo o código da function QuebraLinhas, onde adicionei apenas um IF para evitar o problema.

Não anexei o ACBrUtil.pas alterado pois é apenas um IF adicionado na function.

function QuebraLinhas(const Texto: String; const Colunas: Integer;
   const CaracterQuebrar : Char = ' '): String;
Var
  PosIni, PosFim, Tamanho : Integer ;
begin
  Result  := '';
  Tamanho := Length(Texto) ;
  PosIni  := 1 ;
  repeat
     if PosIni > 1 then
        Result := Result + sLineBreak;

     PosFim := PosIni + Colunas - 1 ;

     if Tamanho > PosFim then                  // Ainda tem proxima linha ?
        if Texto[PosFim+1] <> CaracterQuebrar then   // Proximo já é uma Quebra ?
           while (Texto[PosFim] <> CaracterQuebrar) and (PosFim > PosIni) do // Ache uma Quebra
              Dec(PosFim) ;

     if PosFim = PosIni then  // Não foi capaz de encontrar uma quebra
        PosFim := PosIni + Colunas - 1 ;

     Result := Result + Copy( Texto, PosIni, (PosFim-PosIni)+1 );
     PosIni := PosFim + 1 ;

     // Marciano Lizzoni adicionou o IF abaixo pois estava mostrando Range Erro quando o PosIni já vem maior que Tamanho
     if (PosIni <= Tamanho) then
         // Pula CaracterQuebrar no Inicio da String
         while (Texto[PosIni] = CaracterQuebrar) and (PosIni <= Tamanho) do
            Inc(PosIni) ;

  until (PosIni > Tamanho);
end;