PHSYS - Wiki

O objeto TPHArquivoTexto pode ser utilizado para escrever informações em arquivos de texto.

Propriedades

Nome	Tipo	Descrição
Arquivo	String	Informar o caminho e nome do arquivo.
Reiniciar	Boolean	Caso estiver verdadeiro, será apagado todas as informações escritas anteriormente, ao utilizar AbrirArquivo.
PularLinha	Boolean	Quando verdadeiro, será pulado a linha para cada chamada do procedimento Escrever.
FinalArquivo	Boolean	Quando verdadeiro, indica que passou da ultima linha do arquivo. Utilizado para leitura de arquivos

Procedimentos

• AbrirArquivo: Utilizado para abrir o arquivo informado na propriedade "Arquivo" para escrita;
• Escrever(Texto:String): Utilizado para inserir as informações no arquivo aberto;
• FecharArquivo: Fechar o arquivo;
• Ler: Realiza a leitura da linha atual do arquivo e posiciona na próxima linha.

Funções

• Texto: Retorna as informações escritas no arquivo.

Exemplo Escrita

 PHArquivoObj := TPHArquivoTexto.Create;
 try
   PHArquivoObj.Arquivo    := 'D:\Texte.txt'; { Caminho e nome do arquivo }
   PHArquivoObj.Reiniciar  := False;          { Reinicia o texto do arquivo }
   PHArquivoObj.PularLinha := True;           { Pula linha após escrever }
     
   PHArquivoObj.AbrirArquivo;                 { Abre o arquivo para escrita }
   try            
     PHArquivoObj.Escrever('Linha 1');        { Escrever linha no arquivo }
     PHArquivoObj.Escrever('Linha 2');        { será escrito na segunda linha se a propriedade PularLinha for verdadeira }
   finally
     PHArquivoObj.FecharArquivo;              { Fecha o arquivo para ser possível utilizar }
   end;              
 finally
   PHArquivoObj.Free;                                
 end;

Exemplo Leitura

 s := ;                             
 PHArquivoObj := TPHArquivoTexto.Create;
 try
   PHArquivoObj.Arquivo    := 'D:\Teste.txt'; { Campo e nome do arquivo }                                                            
     
   PHArquivoObj.AbrirArquivo;                 { Abrir o arquivo }                                                                                                                                                                                                                                                                      
   try            
     while not PHArquivoObj.FinalArquivo do
     begin                    
       s := s + PHArquivoObj.Ler + #13;       { Ler linha do arquivo }
     end;                                  
   finally
     PHArquivoObj.FecharArquivo;              { Fechar o arquivo para liberar o uso }                                                                                                                           
   end;

   if (s <> ) then
     Informacao(s);                                 
 finally
   PHArquivoObj.Free;                                
 end;