Arquivos INI no Delphi

Arquivos INI no Delphi

  fevereiro 16, 2018    Ana Paula Novello

---

O “arquivo INI” vem da extensão do arquivo utilizada ".ini", que vem de "inicialização”, um arquivo de texto basicamente.

Criação do "Arquivo ini" e simples, cria um arquivo de "Bloco de notas" e o salva com a extensão ."ini" ao em vez de "txt".


1 - Crie o "arquivo .ini" e o salve com o nome de "Sistema.ini";

2 - Em um projeto coloque os componentes;

• 2 TBitBtn ={BtnCarregar, btnSalvar}
• 2 TLabel = {lbServidor, lbCaminho} 
• 2 TEdit = {edCaminho, edServidor}

3 - Não esqueça de adicionar nas uses a classe IniFiles;

4 - Coloque o Código abaixo no evento do botão "BtnCarregar";

procedure TFPrincipal.BtnCarregarIniClick(Sender: TObject);
var
     I : TIniFile;
begin
     I := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Sistema.ini');
     try
          edServidor.Text := I.ReadString('CONFIG', 'servidor', '');
          edCaminho.Text := I.ReadString('CONFIG', 'caminho_banco', '');
     finally
          I.Free;
     end;
end;

5 - Coloque o Código abaixo no evento do botão "btnSalvarIni";

procedure TFPrincipal.btnSalvarIniClick(Sender: TObject);
var
     I: TIniFile;
begin
     I := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Sistema.ini');
     try
          I.WriteString('CONFIG' ,'servidor', edServidor.Text);
          I.WriteString('CONFIG', 'caminho_banco', edCaminho.Text);
     finally
          I.Free;
     end;
end;

Exemplo: Download do exemplo