Ver Mensaje Individual
  #7  
Antiguo 26-09-2014
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Reputación: 18
kurono Va por buen camino
Para guardar los valores utilizamos WriteString:

poner inifiles en los uses
Código Delphi [-]
private
   ini:TIniFile;

var  
  fName:string;  //declaraciones Globales
Const
  CONFIG_SECTION = 'ConfigDB';//declaraciones Globales

begin

  fName := ChangeFileExt(Application.ExeName,'.ini');
  ini := TIniFile.Create(fName);

  // Grabar
  ini.WriteString(CONFIG_SECTION, 'User', edtUser.Text);
  ini.WriteString(CONFIG_SECTION, 'password', edtPassword.Text);
  ini.WriteString(CONFIG_SECTION, 'Server', edtServer.Text);
  ini.WriteString(CONFIG_SECTION, 'BaseDatos', cbBD.Text);

end;



Y para recuperarlos el equivalente ReadString:

begin

  fName := ChangeFileExt(Application.ExeName,'.ini');
  ini := TIniFile.Create(fName);

  // Cargar datos
  edtUSer.Text := ini.ReadString(CONFIG_SECTION, 'User', STR_EMPTY);
  edtPassword.Text := ini.ReadString(CONFIG_SECTION, 'password', STR_EMPTY);
  edtServer.Text := ini.ReadString(CONFIG_SECTION, 'Server', STR_EMPTY);
  cbBD.Text := ini.ReadString(CONFIG_SECTION, 'BaseDatos', STR_EMPTY);

end;
Responder Con Cita