PHSYS - Wiki

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

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	String	Quando verdadeiro, será pulado a linha para cada chamada do procedimento Escrever.

Procedimentos

• AbrirArquivo: Utilizado para abrir o arquivo para escrita;
• Escrever(Texto:String): Utilizado para inserir as informações no arquivo;
• FecharArquivo: Fechar o arquivo para ser possível utilizar;

Funções

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

Exemplo

 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;