Ver Mensaje Individual
  #5  
Antiguo 18-12-2012
Avatar de Ñuño Martínez
Ñuño Martínez Ñuño Martínez is offline
Moderador
 
Registrado: jul 2006
Ubicación: Ciudad Catedral, Españistán
Posts: 6.000
Reputación: 25
Ñuño Martínez Tiene un aura espectacularÑuño Martínez Tiene un aura espectacular
Cita:
Empezado por Pedrote Ver Mensaje
Respecto a lo del objeto INI tienes razón, pero es que no lo uso solo para obtener los parámetros de conexión de la BD si no para otras configuraciones de la aplicación FTP, ciertos directorios, etc. ¿Ves conveniente hacerme una función especifica que me recoja las variables de cada determinada sección del INI?
No, no es conveniente. Lo que debes hacer, entonces, es crear el objeto INI en una unidad (por ejemplo, uno que se llame "config.pas") y acceder a él cuando necesites obtener información.

Código Delphi [-]
UNIT config;
(* Carga y permite el acceso a la configuración. *)

INTERFACE

  CONST
  (* Nombre del archivo de configuración. *)
    ArchivoConfiguracion = 'config.ini';

(* Devuelve el valor de configuración solicitado. *)
  FUNCTION GetValIni (secc, val: STRING): STRING;

IMPLEMENTATION

  USES
    IniFiles;

  VAR
  (* Contiene el archivo de configuración. *)
    ArchivoIni: TIniFile;

(* Devuelve el valor de configuración solicitado. *)
  FUNCTION GetValIni (secc, val: STRING): STRING;
  BEGIN
    GetValIni := ArchivoIni.ReadString (secc, val, '');
  END;

INITIALIZATION
(* Crea y carga el objeto. *)
  ArchivoIni := TIniFIle.Create (ArchivoConfiguracion);
FINALIZATION
(* Destruye el objeto. *)
  ArchivoIni.Free;
END.
Esto mejora el rendimiento, a costa de usar un poco más de memoria.

Cita:
Empezado por Pedrote Ver Mensaje
Yo no veo donde dices que mezclo tipos :S compilar compila.
Aquí:
Código Delphi [-]
  if CheckValIni('BD', 'Inst') and CheckValIni('BD', 'Usuario') and
    CheckValIni('BD', 'Usuario') then
Se supone que CheckValIni devuelve STRING pero los IF esperan un BOOLEAN. En FreePascal no compila, y al menos cuando usaba Delphi 6 tampoco.
__________________
Proyectos actuales --> Allegro 5 Pascal ¡y Delphi!|MinGRo Game Engine

Última edición por Ñuño Martínez fecha: 18-12-2012 a las 12:22:53.
Responder Con Cita