POO Delphi - Criando classe genérica de manipulação de arquivos .INI

Olá.

Neste artigo vamos falar um pouco de Programação Orientada a Objetos utilizando Delphi, confesso que é um tema recorrente e a implementação da especificação POO em Delphi é meio estranha, comparando-se com o JAVA, mas funciona que é uma maravilha e como facilita nossa vida. Neste exemplo vamos criar uma classe cuja finalidade é tornar o acesso simplificado as seções de arquivos de configuração .INI. 

Com o Delphi aberto e já estando em um novo projeto, crie uma nova Unit no Delphi e declare os seguintes métodos e dependências conforme a figura abaixo:

Para começar o entendimento do código da figura acima começamos pela seção Type que marca o inicio da declaração da classe TFile.

Logo abaixo temos a seção private que segue o conceito de todas as linguagens de programação que diz que toda variável private apenas a unidade que a declara tem acesso a ela, ou seja, pFile só pode ser acessada de dentro da Classe TFile.

Na seção Public encontramos um método Create que recebe como parâmetro uma string contendo o caminho onde o arquivo .INI existe. Atente para a palavra reservada overload que encontra-se na frente das procedures e functions, esta declaração serve para informar ao compilador um métodos sobrecarregado. Eles possuem a mesma assinatura contudo o tipo e a quantidade de parâmetros pode mudar, fazendo com que o compilador possa diferência-los em tempo de execução.

As procedures add  servem para adicionar/alterar valores de um parâmetro já existente no arquivo de configuração.

As function ´s read servem unicamente para ler os valores das seções de um arquivo de configuração.

Logo abaixo temos uma constante com a mensagem padrão em caso de o arquivo não for encontrado no caminho passado por parâmetro. Posicione o cursor do mouse sobre a seção onde estão declaradas as function e procedures e pressione Ctrl+Shift+C para que o Delphi declare-as na seção implementation.

Agora imagine que o seu arquivo de configuração esteja dentro uma pasta da pasta Config na rais do seu projeto e que o Delphi esteja gerando o executável no mesmo nível desta.

O arquivo de configuração tem a seguinte estrutura, veja a imagem:

O uso da classe seria da seguinte maneira;

Na figura acima temos a instrução FileExists para validar a existência do arquivo no caminho '\Config\SENSOR.INI' recebendo como parâmetro através da função ExtractFileDir a pasta onde o executável esta sendo executado. Se a condição for verdadeira ele instancia o objeto ini que recebe uma instancia de TFile e o resto é auto explicativo.

O uso é bem prático pois daqui em diante não será preciso mais preocupações a respeito de como a classe trata isoladamente o acesso a cada função, apenas invoca-se o método onde é passado os parâmetros necessários.

Dúvidas e sugestão deixem nos comentários.

Até o próximo.