TPHArquivoTexto - Histórico de revisão

Admin: /* Exemplo Escrita */

2025-04-21T14:21:00Z

‎Exemplo Escrita

2025-04-21T14:17:40Z

‎Exemplo Escrita

2022-04-12T00:02:37Z

‎Exemplo Leitura

2022-04-12T00:02:08Z

2022-04-12T00:01:44Z

‎Funções

2022-04-12T00:01:15Z

2022-04-12T00:00:52Z

2022-04-12T00:00:19Z

2022-04-11T23:59:51Z

2022-03-09T12:05:19Z

@@ Linha 37: / Linha 37: @@
    PHArquivoObj := TPHArquivoTexto.Create;
    try
-     PHArquivoObj.Arquivo    := 'D:\Teste.txt'; { Caminho e nome do arquivo }
+     PHArquivoObj.Arquivo    := 'C:\Teste.txt'; { Caminho e nome do arquivo }
      PHArquivoObj.Reiniciar  := False;          { Reinicia o texto do arquivo }
      PHArquivoObj.PularLinha := True;           { Pula linha após escrever }

@@ Linha 37: / Linha 37: @@
    PHArquivoObj := TPHArquivoTexto.Create;
    try
-     PHArquivoObj.Arquivo    := 'D:\Texte.txt'; { Caminho e nome do arquivo }
+     PHArquivoObj.Arquivo    := 'D:\Teste.txt'; { Caminho e nome do arquivo }
      PHArquivoObj.Reiniciar  := False;          { Reinicia o texto do arquivo }
      PHArquivoObj.PularLinha := True;           { Pula linha após escrever }

@@ Linha 56: / Linha 56: @@
    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
@@ Linha 65: / Linha 65: @@
        end;
      finally
        PHArquivoObj.FecharArquivo;              { Fechar o arquivo para liberar o uso }
      end;
      if (s <> '') then

@@ Linha 67: / Linha 67: @@
        PHArquivoObj.FecharArquivo;              { Fechar o arquivo para liberar o uso }
      end;
      if (s <> '') then
        Informacao(s);

@@ Linha 30: / Linha 30: @@
 ===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.

@@ Linha 28: / Linha 28: @@
 * '''Escrever(Texto:String)''': Utilizado para inserir as informações no arquivo aberto;
 * '''FecharArquivo''': Fechar o arquivo;
 ===Funções===
 * '''Texto''': Retorna as informações escritas no arquivo.
 ===Exemplo Escrita===

@@ Linha 21: / Linha 21: @@
 |FinalArquivo
 |Boolean
-|Quando verdadeiro, indica que passou da ultima linha do arquivo. Utilizado para leitura de arquivos
+|Quando verdadeiro, indica que chegou ao final das linhas do arquivo. Utilizado para leitura de arquivos
 |}

@@ Linha 16: / Linha 16: @@
 |-
 |PularLinha
-|String
+|Boolean
 |Quando verdadeiro, será pulado a linha para cada chamada do procedimento Escrever.
 |}