Ver Mensaje Individual
  #7  
Antiguo 12-06-2012
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Reputación: 15
MartinS Va por buen camino
Hola Gines: Te comento que yo uso Delphi XE y si copias el codigo tal como esta te tiene que funcionar. Igual te lo acomode de acuerdo al nombre que le diste a la variable del ini:

Código Delphi [-]
Procedure TDm.DataModuleCreate(Sender: TObject);   
   Var BaseDeDatos: String;
    ElIniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   ElIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := ElIniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
    BaseGeneral.DatabaseName := BaseDeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
end;

A tener en cuenta:
a) Tipo de variable que es ElIniFile
b) Debes colocar en el Uses IniFiles (IniFiles es el nombre de la unidad que contiene las funciones para los ini).
No hay grandes cambios. Deberia funcionar, si no es asi, subi el error que te dice.-

Saludos

PD. Hacen buena cerveza negra por ahi??
Responder Con Cita