[Curso de Delphi] Aula 08 - By Tiago Assis
Saudações caros amigos da PerfectZone. Estou retomando ao curso de Delphi com o intuito de finalizado como descrito em nosso primeiro tópico de Introdução ao Curso de Delphi. Devido a diversos problemas pessoais acabei deixando o curso parado, porém estarei retomando o mesmo para vocês.
Nessa aula estaremos aprendendo um conceito básico de como manipular arquivos e ao mesmo tempo escrever e ler arquivos de texto, com isso aprenderemos a criar um sistema de Log para um sistema que possamos vir a desenvolver futuramente, além de algumas outras funções como cópia de segurança, entre outros.
De agora em diante, estaremos utilizando nesse curso o RadStudio 10 da Embarcadeiro, o motivo é que muitos programas desenvolvido em Delphi 7, software que iniciamos o curso estão apresentando algumas incompatibilidades com versões mais recentes do Windows, principalmente programas complexos. Porém nada impede de vocês utilizarem a versão que desejarem.
Cronograma da Aula
- Salvando conteúdo/variáveis em um arquivo texto
- Exemplo de criação de um log.txt
Salvando conteúdo/variáveis em um arquivo de texto
Algumas informações de um software desenvolvido em Delphi são salvas em arquivos textos, uma forma mais simples e rápida que não necessita de banco de dados, já que o mesmo é mais utilizado para salvar dados mais complexos com o objetivo até mesmo de serem acessados em rede. Então abaixo vai um exemplo:
Vamos criar um novo projeto no Delphi, organize-o da forma que você desejar... Adicione os seguintes componentes no mesmo:
- 3 Labels (Paleta Standard)
- 1 Memo (Paleta Standard)
- 2 Edits (Paleta Standard)
- 2 Buttons (Paleta Standard)
Altere as propriedades dos componentes da seguinte forma:
Label1
> Caption: Digite o conteúdo
Label2
> Caption: Nome
Label3
> Caption: Idade
Memo1
> ScrollBars: ssVertical
Button1
> Caption: Salvar Texto
Button2
> Caption: Salvar Dados
Organize esse formulário como mostra a figura abaixo:
[Only registered and activated users can see links. Click Here To Register...]
No Evento Onliclick do button1 (Salvar Texto) digite o seguinte código:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
// Salvar conteúdo de um Memo
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0))+'\Texto.txt');
{
# Serão pegas todas as linhas do Memo e salvas em um arquivo Texto definido
# pelo usuário.
# ExtractFilePath tem por função de extrair o path (caminho) de onde se localiza
# determinado arquivo
# ParamStr(0) vai indicar que o arquivo a ser extraido o path é o nosso executável
# Sendo assim, o botão Salvar Texto irá salvar o conteúdo do Memo1 em um arquivo
# chamado Texto.txt no mesmo local onde está nosso Executável.
}
end;
No Evento Onclick do button2 (Salvar Dados) digite o seguinte código:
Código:
procedure TForm1.Button2Click(Sender: TObject);
var
Arquivo: TextFile; // Variável do tipo arquivo de texto
begin
// Salvar dados de campos
AssignFile(Arquivo, ExtractFilePath(ParamStr(0))+'\Dados.txt'); // Cria o arquivo na localização definida
Rewrite(Arquivo); // Reescreve o arquivo do zero
Writeln(Arquivo, 'Nome: '+Edit1.Text); // Escreve uma linha do arquivo com os dados de Edit1
Writeln(Arquivo, 'Idade: '+Edit2.Text); // Escreve uma nova linha do arquivo com os dados do Edit2
CloseFile(Arquivo); // Fecha o arquivo após inseridas as informações
{
# Nesse exemplo estamos fazendo com o componente edit1, porém pode ser realizado com
# variáveis, ai vai de sua criatividade.
}
Download do exemplo: [Only registered and activated users can see links. Click Here To Register...]
Até a próxima aula galera :D