orc 0 Denunciar post Postado Setembro 20, 2007 estou tentando fazer funcionar mais não estou conseguindo gravar , ele gera o arquivo mais não grava na da dentro do arquivo begin MArquivos.Lines := GetFileList( EdPasta.Text + '\' + '*.txt' ); // pega a lista de arquivos da pasta selecionada e passa para o memo contador := 0; // zera o contador QtdLinhas := MArquivos.Lines.Count; // quantidade de linhas do componente memo pb.MaxValue := QtdLinhas; // Conta os registros e informa ao progressBar pb.Progress := 0; // Zera o Progresso da progressbar Caminho := EdCaminho.Text; // Variavel que recebe o caminho do arquivo // Abre-o para gravação // AssignFile(mArq, Caminho + '\' + EdNomeArquivo.Text + '.txt'); // Cria-se o Arquivo Rewrite(mArq); // BtnMontar.Enabled := False; // Desabilita o botão de Montar Interface BtnSair.Enabled := False; // Desabilita o botão de Saida do aplicativo while Contador <> QtdLinhas do // Enquanto contador diferente da quantidade de linhas ele faz a leitura dos arquivos begin // //Application.ProcessMessages; // atualiza a aplicação constantemente if CBPadrao.ItemIndex = 0 then begin vCodigo := PegarNumeros( MArquivos.Lines[Contador] ); // Variavel que recebe o nome do arquivo sem as Letras, somente os numeros // MProcessos.Lines.LoadFromFile( EdPasta.Text + '\' + MArquivos.Lines[Contador]); // Carrega o Arquivo de Processo no memo de processos // vNomePesquisado := copy( UpperCase( MProcessos.Lines[5] ),19,69) ; // Recebe o Nome pesquisado do arquivo de processos // vPagina := copy( UpperCase( MProcessos.Lines[3] ),51,55) ; // Recebe a pagina do arquivo de processos vProcesso := PegarNumeros( MProcessos.Lines[1] ); // Recebe o Numero do Processo // ShowMessage( vProcesso ); vDiario := EdDiario.Text; // Recebe o Nome do Diario que provem a interface vRecorte := 'RECORTE AUTOMATICO'; // Recebe o nome do recorte automatico Write( mArq, 'teste' ); // // Writeln( marq , Padr(Copy(vCodigo, 1 , 9 ), 20 ,' ') + ' '); // Padr(Copy(vCodigo, 1 , 9); // Recebe o nome do arquivo ( somente os numeros sem letras ) Tam : 9 // Recebe o nome Pesquisado do arquivo de processo Tam : 50 // Writeln( marq , // Recebe o nome do jornal que veio as informações Tam : 50 // Recebe o Padrão " RECORTE AUTOMÁTICO " Tam : 50 // Recebe o Nº da Página que vem do arquivo de processo (4 caracteres) + Numero do processo Tam : 34 // Recebe a descricao da subseção Tam : 250 // Padr(Copy(IntToStr(cdsClientesCodigo.Value) , 1 , 6), 6 , ' ') + ' ' + // Padr(Copy(cdsClientesFANTASIA.Value , 1, 30), 30 , ' ') + ' ' + // Padr(Copy(cdsClientesENDERECO.Value , 1 , 30), 30 , ' ') + ' ' + // Padr(Copy(cdsClientesBAIRRO.Value , 1 , 30), 30 , ' ') + ' ' + // Padr(Copy(cdsClientesCIDADE.Value , 1, 15 ), 15 , ' ') + ' ' + // Padr(Copy(cdsClientesRAZ_SOC.Value, 1 , 20 ), 20 ,' ') + ' '); end; contador := contador + 1; // soma mais 1 ao contador pb.Progress := pb.Progress + 1; // soma mais 1 a progress bar Next; // passa para o proximo registro do campo memo end; BtnMontar.Enabled := True; BtnSair.Enabled := True;end; Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Setembro 20, 2007 De um CloseFile(); no final da gravação... Compartilhar este post Link para o post Compartilhar em outros sites
orc 0 Denunciar post Postado Setembro 20, 2007 De um CloseFile(); no final da gravação... Valeu marcio.theis era isso mesmo peguei um exemplo na net mais cheio de pau valeu mesmo De um CloseFile(); no final da gravação... Valeu marcio.theis era isso mesmo peguei um exemplo na net mais cheio de pau valeu mesmo Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Setembro 20, 2007 beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Compartilhar este post Link para o post Compartilhar em outros sites