Mudanças entre as edições de "TPHArquivoTexto"
| 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 passou da ultima linha do arquivo. Utilizado para leitura de arquivos | ||
|} | |} | ||
| Linha 24: | Linha 28: | ||
* '''Escrever(Texto:String)''': Utilizado para inserir as informações no arquivo aberto; | * '''Escrever(Texto:String)''': Utilizado para inserir as informações no arquivo aberto; | ||
* '''FecharArquivo''': Fechar o arquivo; | * '''FecharArquivo''': Fechar o arquivo; | ||
| + | * '''Ler''': Realiza a leitura da linha atual do arquivo e posiciona na próxima linha. | ||
===Funções=== | ===Funções=== | ||
* '''Texto''': Retorna as informações escritas no arquivo. | * '''Texto''': Retorna as informações escritas no arquivo. | ||
| − | ===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 das 20h59min 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 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;
