Fórum Dúvida com função Copy no Delphi! #511635

   varantigo := Trim(editArquivoOrigem.Text);
   varnovo   := Trim(editArquivoFim.Text);

   //abre o arquivo
   AssignFile(arquivoOrigem,varantigo);
   Reset(arquivoOrigem);

   //cria o arquivo novo
   AssignFile(arquivoNovo,varnovo);
   Rewrite(arquivoNovo);


   while not eof(arquivoOrigem) do
    begin


       Readln(arquivoOrigem,linhaCompara);
       LinhaInicio := copy(linhaCompara,1,3);

  
       //CUPOM FISCAL, NOTA FISCAL DE VENDA A CONSUMIDOR E BILHETE DE PASSAGEM
       if LinhaInicio = 'E14' then
        begin
          numero_documento := copy(linhaCompara,47,52);
          Writeln(arquivoNovo,numero_documento);
          //
           data_emissao     := copy(linhaCompara,59,66);
          Writeln(arquivoNovo,data_emissao);
          //
          subtotal         := copy(linhaCompara,67,80);
          Writeln(arquivoNovo,subtotal);
          //
          total_liquido    := copy(linhaCompara,109,122);
          Writeln(arquivoNovo,total_liquido);
          //
          cancelamento     := copy(linhaCompara,123,123);
          Writeln(arquivoNovo,cancelamento);

          Writeln(arquivoNovo,'............................................');
        end;

    end;

   CloseFile(arquivoOrigem);
   CloseFile(arquivoNovo);
   ShowMessage('final do processo!!');