Criando seu próprio banco de dados com o Delphi

[lorddrakus 1]

[Criando seu próprio banco de dados com o Delphi

 

Cenário: Em meu programa Delphi eu precisei de um modo de armazenar um pouco de informação no disco. Eu não queria trabalhar com arquivos texto - não deveria haver nenhum modo fácil para ver/alterar a informação do arquivo. Pode haver ações como changing/updating dos dados existentes; mas escritas e leituras acontecerão. Que tipo de arquivo eu devo usar?

 

Arquivos Typed

Enquanto arquivos de texto consistirem em linhas terminadas com uma combinação de CR/LF, arquivos typed consistem em dados levados de um tipo particular de estrutura de dados.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Antes de escrevermos alguma informação no disco nós temos que declarar uma variável de um tipo de arquivo. A linha seguinte de código declara a variável F de arquivo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Nota: Para criar um arquivo typed em Delphi, nós usamos a sintaxe seguinte:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

O tipo básico (SomeType) para um arquivo pode ser um tipo escalar (gosta Double), um tipo de array ou tipo de registro. Não deve ser string longa, array dinâmico, class, objeto ou um ponteiro.

 

Para começar o funcionamento com arquivos Delphi nós temos que unir um arquivo em um disco para uma variável de arquivo em nosso programa. Para criar esta ligação nós temos que usar o procedimento AssignFile para associar um arquivo em um disco com uma variável de arquivo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Uma vez a associação com um arquivo externo é estabelecida, a variavel F deve ser 'aberta' para preparar ele para leitura ou escrita. Nós chamamos o procedimento Reset para abrir um arquivo existente ou Rewrite para criar um arquivo novo. Quando um programa completar o processo em um arquivo, o arquivo precisa se fechado com o procedimento CloseFile. Depois que um arquivo estiver fechado, seu arquivo externo associado é atualizado. A variável de arquivo pode ser associada então com outro arquivo externo. Em geral, nós sempre deveríamos usar manipulação de exceção; muitos erros podem surgir ao trabalhar com arquivos. Por exemplo: se nós chamamos CloseFile para um arquivo que já esta fechado, o Delphi informa um erro de I/O. Por outro lado, se nós tentamos fechar um arquivo mas não chamamos AssignFile, os resultados são imprevisíveis.

 

Escrita

Suponha que nós preenchemos uma array de sócios do Delphi com os nomes deles, e-mails e número de postagem e nós queremos armazenar esta informação em um arquivo no disco. O seguinte código fará o trabalho

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

Leitura

Na ordem, para receber toda a informação do arquivo 'members.dat' nós poderíamos usar este código

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Nota: Eof é função que confere se é o fim do arquivo. Nós usamos esta função para ter certeza que nós não estamos tentando ler além do fim do arquivo (além do último registro armazenado

 

Buscando e posicionando

Normalmente arquivos são acessados consecutivamente. Quando um arquivo é lido usando o procedimento Read ou escrito usando o procedimento Write, a posição do arquivo atual move para o próximo numericamente ordem do componente (próximo registro). Arquivos typed também podem ser acessados fortuitamente arquivos de arquivos pelo procedimento standard Seek que move a posição corrente do arquivo atual para um componente especificado. As funções FilePos e FileSize podem ser usadas para determinar a posição do arquivo atual e o tamanho do arquivo atual.

 

// volte para o começo - o primeiro registro

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

// vá para o 5º registro

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

// Salte para o fim - "depois do" último registro

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Mudança e atualização

Nós há pouco vimos como escrever e ler a ordem inteira dos Sócios. O que quando tudo que nós queremos fazer é buscar ao 10º sócio e mudar o seu e-mail? O próximo procedimento faz isso exatamente

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

nomeie, abra, exceção que controla bloco

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

[leia mova para o próximo registro, nós temos

que voltar para o registro original, então escreva

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

fecha arquivo

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Tudo terminado

Pronto, agora nós temos tudo que nós precisamos para realizar nossa tarefa. Nós podemos escrever informação de Sócios no disco, nós podemos ler-lo e nós podemos mudar alguns dos dados até mesmo (e-mail, por exemplo) no "meio" do arquivo.

 

Creditos:

 

LordDrakus.