Ver Mensaje Individual
  #4  
Antiguo 03-06-2004
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 916
Reputación: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Otra alternativa

Segun lo que pude entender si este archivo contiene informacion de configuracion de tu programa, tal como :

- Ruta de archivos de datos
- directorios de trabajo
- valores por defecto
- Etc...

Puedes utilizar un archivo .INI, delphi tiene muchas formas de acceder este de manera muy facil...

Aqui te coloco un poco de codigo...

Código:
Var
   Vars:TStrings;
   strRutaDataBase, strXlsTemplate, strDBase
Begin
     Try

          Vars:=TStringList.Create;

          With TIniFile.Create( 'Miconfig.Ini' ) Do
          Begin
               ReadSectionValues('BaseDatos',Vars);

               strRutaDatabase:=Vars.Values['RutaDataBase']; 
               //C:\Apps\Contabilidad\data
               
               ReadSectionValues('Archivos',Vars);

               strXlsTemplate=Vars.Values['XlsTemplate'];  
               //SAI.XLS']
               strDBFiles=Vars.Values['DBFiles']; 
               //PARAMSIM.DBF

               Free;
          End;
     Finally
          Vars.Free;
     End;
Este seria el contenido del archivo Miconfig.Ini

[BaseDatos]
RutaDataBase=C:\Apps\Contabilidad\data

[Archivos]
XlsTemplate=SAI.XLS
DBFiles=PARAMSIM.DBF


Espero te sirva...
Saludos de Christian
Concepcion-Chile

El Domingo 06 jugamos con Brasil...Vamos Chileeeeeeeeeeeeeeeeeeee
!!!chi-le, chichichi, lelele, Viva Chileeeeeeeee!!!
Responder Con Cita