Como criar arquivos com extensão .ini

Os arquivos INI são um modelo estruturado de escrita, foi  un dos padrões mais usados pela Microsoft em seu sistema operacional windows.

ainda hoje usa-se arquivos ini para criar arquivos de configuração para programas em geral.

E o Delphi possui uma Classe especializada na manipulação desse tipo de arquivo, a TINI.

exemplo do conteudo do arquivo ini:

[seção1]
chave1=valor
chave2=valor
[seção2]
chave1=valor
chave2=valor
chave3=valor

seu uso é muito simples.

para iniciarmos vamos criar um pequeno exemplo onde vamos gravar o o nome do ultimo usuario que fez login em nosso sistema

para isso vamos usar o exemplo de sistema de login que foi criado em aulas anteriores.

no na unit UntLogin adicione a clausula Uses do delphi a palavra “IniFiles ”

no evento OnCreate do Form adicione as informações

procedure TForm1.onCreate(Sender: TObject);
var
   Ini : TIniFile;
begin
   try
        Ini    := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'configuracao.ini');
        EdtNomeCaixaSenha.text := Ini.ReadString('strNomeSessao', 'strNomeChave', 'Informe');
        FreeAndNil(Ini);
    except
        on E: Exception do
        begin
            ShowMessage('ocorreu um erro ao ler o arquivo config.ini, ' + #13 + 'A classe ' + E.ClassName + ' gerou a seguinte mensagem de erro: ' +
                E.Message);
        end;
    end;
end;

//e no botão salvar adicione o seguinte código

procedure TForm1.BtnValidarUsuario(Sender: tobject);
var
    Ini: TIniFile;
begin
    If UsuariValido then
    begin
      try
         Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'configuracao.ini');
         Ini.WriteString('strNomeSessao', 'strNomeChave', EdtNomeUsuario.Text);
         FreeAndNil(Ini);
     except
         on E: Exception do
         begin
             ShowMessage('Ocorreu um erro ao escrever no arquivo config.ini, ' + #13                 ' mensagem de erro: ' + E.Message);
         end;
     end; 
end;