O que está errado

[orc 0]

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;

[marcio.theis 3]

De um CloseFile(); no final da gravação...

[orc 0]

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

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif