Mudanças entre as edições de "TPHArquivoTexto"

(Realizado a documentação do objeto TPHArquivoTexto)
 
(Exemplo Leitura)
 
(9 revisões intermediárias pelo mesmo usuário não estão sendo mostradas)
Linha 1: Linha 1:
O objeto TPHArquivoTexto pode ser utilizado para escrever informações em arquivos.   
+
O objeto TPHArquivoTexto pode ser utilizado para escrever informações em arquivos de texto.   
  
 
===Propriedades===
 
===Propriedades===
Linha 16: Linha 16:
 
|-
 
|-
 
|PularLinha
 
|PularLinha
|String
+
|Boolean
 
|Quando verdadeiro, será pulado a linha para cada chamada do procedimento Escrever.
 
|Quando verdadeiro, será pulado a linha para cada chamada do procedimento Escrever.
 +
|-
 +
|FinalArquivo
 +
|Boolean
 +
|Quando verdadeiro, indica que chegou ao final das linhas do arquivo. Utilizado para leitura de arquivos
 
|}
 
|}
  
 
===Procedimentos===
 
===Procedimentos===
* '''AbrirArquivo''': Utilizado para abrir o arquivo para escrita;
+
* '''AbrirArquivo''': Utilizado para abrir o arquivo informado na propriedade "Arquivo" para escrita;
* '''Escrever(Texto:String)''': Utilizado para inserir as informações no arquivo;
+
* '''Escrever(Texto:String)''': Utilizado para inserir as informações no arquivo aberto;
* '''FecharArquivo''': Fechar o arquivo para ser possível utilizar;
+
* '''FecharArquivo''': Fechar o arquivo;
  
 
===Funções===
 
===Funções===
* '''Texto''': Retorna as informações escritas no arquivo.
+
* '''Texto''': Retorna o texto completo do arquivo.
 +
* '''Ler''': Realiza a leitura da linha atual do arquivo e posiciona na próxima linha.
  
===Exemplo===
+
===Exemplo Escrita===
  
 
   PHArquivoObj := TPHArquivoTexto.Create;
 
   PHArquivoObj := TPHArquivoTexto.Create;
Linha 43: Linha 48:
 
       PHArquivoObj.FecharArquivo;              { Fecha o arquivo para ser possível utilizar }
 
       PHArquivoObj.FecharArquivo;              { Fecha o arquivo para ser possível utilizar }
 
     end;               
 
     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
 
   finally
 
     PHArquivoObj.Free;                                 
 
     PHArquivoObj.Free;                                 
 
   end;
 
   end;

Edição atual tal como às 21h02min de 11 de abril de 2022

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 chegou ao final das linhas 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;

Funções

  • Texto: Retorna o texto completo do arquivo.
  • Ler: Realiza a leitura da linha atual do arquivo e posiciona na próxima linha.

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;