Mudanças entre as edições de "TPHArquivoTexto"
(→Exemplo Escrita) |
|||
| (8 revisões intermediárias pelo mesmo usuário não estão sendo mostradas) | |||
| Linha 18: | Linha 18: | ||
|Boolean | |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 | ||
|} | |} | ||
| Linha 26: | Linha 30: | ||
===Funções=== | ===Funções=== | ||
| − | * '''Texto''': Retorna | + | * '''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; | ||
try | try | ||
| − | PHArquivoObj.Arquivo := ' | + | PHArquivoObj.Arquivo := 'C:\Teste.txt'; { Caminho e nome do arquivo } |
PHArquivoObj.Reiniciar := False; { Reinicia o texto do arquivo } | PHArquivoObj.Reiniciar := False; { Reinicia o texto do arquivo } | ||
PHArquivoObj.PularLinha := True; { Pula linha após escrever } | PHArquivoObj.PularLinha := True; { Pula linha após escrever } | ||
| 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 11h21min de 21 de abril de 2025
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 := 'C:\Teste.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;
