[Curso de Delphi] Aula 08 - By Tiago Assis

[tiagoassis]

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:



No Evento Onliclick do button1 (Salvar Texto) digite o seguinte 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:

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: [Somente membros podem ver os links. ]

Até a próxima aula galera