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
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; 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??
