Fórum Como gravar o itemindex dos Combobox sem usar Banco? #241258

procedure TFr_Principal.InicializaIni();
begin  
  if not FileExists(´C:\CONFIG.CFG´) then
  begin
    {Caso o arquivo não exista crie e configure um valor padrão}
    pArquivoCfg    :=   TIniFile.Create(´C:\CONFIG.CFG´);
    pArquivoCfg.WriteString(´GERAL´,´USUARIO´,´usuarioInicial´);
  end
  else
  begin
    {Caso já exista apenas o abra e o atribua à variável}
    pArquivoCfg    :=   TIniFile.Create(DirAtual+´config.cfg´);
  end;
end;

 
 {o Edit vai ler o valor do ini,caso não tenha valor ele vai receber ´vazio´}
 edUsuario.Text := pArquivoCfg.ReadString(´GERAL´,´USUARIO´,´vazio´);

 
 {o Edit vai ler o valor do ini,caso não tenha valor ele vai receber ´vazio´}
 pArquivoCfg.WriteString(´GERAL´,´USUARIO´,edUsuario.Text);