GRAVANDO DADOS EM ARQUIVOS INI

Quando trabalhamos com arquivos INI no delphi, podemos dizer que gravamos ou lemos informações num registro que contém grupos de informações.

Basicamente, este trabalho exige os seguintes passos :

* Declarar a biblioteca "IniFiles" na cláusula "uses" da unit

* No procedure em que for chamar o recurso , declare uma variável do tipo TIniFile

   Ex : var teste : TIniFile;

* Faça a variável receber o caminho no qual o arquivo INI sera gravado

   Ex : teste := TIniFile.Create(ExtractFilePath(ParamStr(0))+'\CONFIGURACOES.INI');

   Nesse caso vai ser criado um arquivo CONFIGURACOES.INI no mesmo diretório de do executável

   do sistema

Para gravar "texto" no arquivo :

  teste.WriteString ('EMPRESA','RAZAOSOCIAL' ,edRazao.Text);

  teste.WriteString ('EMPRESA','NOMEFANTASIA' ,edFantasia.Text);

  Nesse caso o campo RAZAO SOCIAL do grupo EMPRESA recebe o valor do edRazao.Text e

  o campo NOMEFANTASIA recebe o valor do edFantasia.Text

Para gravar "número" no arquivo :

  teste.WriteInteger ('CONTROLE','DIASVENCIMENTO' ,edQtdeDiasVcto.Value);

Nesse caso o campo DIASVENCIMENTO do grupo CONTROLE vai receber o valor de uma

  variável ou objeto que tenha um valor inteiro.

Para gravar "valor boleano" no arquivo : 

  

  teste.WriteBool ('CONTROLE','BLOQUEAR',True);

Nesse caso  o campo BLOQUEAR do grupo CONTROLE vai receber o valor 1 (verdadeiro)

Visualização O arquivo vai ficar mais ou menos com o seguinte layout :

[EMPRESA]

NOMEFANTASIA = FULANO DE TAL LTDA

NOMEFANTASIA - LOJÃO DO FULANO

[CONTROLE]

DIASVENCIMENTO = 5

BLOQUEAR = 1