Ver Mensaje Individual
  #2  
Antiguo 28-04-2008
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola.
Te dejo un ejemplo de cómo cargar el valor de la clave Database de tu fichero.

Código Delphi [-]
uses IniFiles;
...
...
procedure CargarFicheroINI;  //LoadFromIniFile
var Configuracion: TIniFile;
     RutaBD: String;
begin  
  Configuracion := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Configuracion.ini');
  RutaBD := ReadString('SERVER', ' DataBase', '');
  Configuracion.Free;  
end;

procedure GuardarFicheroINI;  //SaveToIniFile
var Configuracion: TIniFile;
begin  
  Configuracion := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Configuracion.ini');
  WriteString('SERVER', ' DataBase', '157.2.0.11:C:\PROJETOS\SAC_2007\DADOS\SAC_DB.FDB');
  Configuracion.Free;  
end;

Por último, te recomiendo que revises la ayuda de Delphi sobre la clase TIniFile, para que veas los diversos métodos que tiene.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita