Ver Mensaje Individual
  #1  
Antiguo 20-11-2007
molina669 molina669 is offline
Miembro
 
Registrado: nov 2005
Ubicación: Elche
Posts: 40
Reputación: 0
molina669 Va por buen camino
Asignar BBDD con archivo .ini

Hola a todos,
utilizo un archivo ini para asignar la bbdd de mi aplicacion para prevenir posibles cambios de ubicacion de esta y así ahorrarme tener que cambiar el codigo.
El problema es que me salta el error "no es un nombre de archivo valido", cuando os puedo asegurar que si lo es.
El codigo para leer la ruta en el ini y asignarla a la bbdd es este
Código:
var
        bbdd:TStringList;
        posicion,posicion2:integer;
        nombreBBDD:string;
begin
bbdd:=TStringList.Create;
bbdd.LoadFromFile('datos/telefonos.ini');
posicion:=pos('[BBDD]',bbdd.Text);
posicion2:=pos('[/BBDD]',bbdd.Text);
nombreBBDD:=copy(bbdd.text,posicion+8,posicion2-posicion-8);
ShowMessage(nombreBBDD);
with DataModule2 do
        begin
        Database.DatabaseName:=nombreBBDD;
        Database.Connected:=true;
        QDepartamento.Active:=true;
        QInformeInterno.Active:=true;
        QPersonal.Active:=true;
        QDepartamentoFax.Active:=true;
        QDepartamentoTelefono.Active:=true;
        QExterno.Active:=true;
        tbExterno.Active:=true;
        end;
Gracias
Responder Con Cita