Ver Mensaje Individual
  #5  
Antiguo 31-08-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.109
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Cita:
Empezado por Sayuri
[Startup] //¿esto lo debo poner?
Rutap=\\PC05\URGENCIAS //¿se declara así una variables?
Rutas=\\SERVIDORPC\COPIA_URGENC
Lo primero representa una sección en que luego podrás mirar por un determinado valor. "Rutap" sería la clave que te informaría del valor que le sigue a su derecha.

Si investigaras un poco en la clase "TIniFile" y sus métodos no tendrías mayor problema, pero, en fin, ahí va un procedimiento (a modo de ejemplo únicamente) para obtener lo que precisas: se basa en los datos que proporcionas tú mismo.

Código Delphi [-]
   procedure ObtenerRutas(var rutaP, rutas: string);
   var
     dir: string;
     ini: TIniFile;
   begin
     dir := ExtractFilePath(ParamStr(0));
     ini := TIniFile.Create(dir + 'archivo.ini');
     try
       rutaP := ini.ReadString('Startup', 'Rutap', '');
       rutas := ini.ReadString('Startup', 'Rutas', '');
     finally
       ini.Free;
     end;
   end;

Obtendrías las rutas en las variables "rutaP" y "rutas", que se pasan en el procedimiento por referencia. Si el archivo "ini" no existiera o si no hubiera ningún valor asociado a las claves correspondientes del archivo "ini" las variables mencionadas contendrían una cadena vacía.

Mira en la ayuda de Delphi: el método "ReadString" de la clase "TIniFile" precisa tres parámetros: el primero es la sección del archivo "ini" en que se quiere mirar por una determinada clave/valor; el segundo es la clave cuyo valor queremos leer; el tercero es el valor "por defecto", en caso de que no hubiera valor alguno relacionado con la clave en cuestión.

Actualización: Quizás con el ejemplo que se incluye en el archivo adjunto lo veas del todo claro. Pero, recuerda que el procedimiento en cuestión es solamente una forma de hacerlo y nada más que eso: en cuanto "controles" los archivos "ini" ya verás tú cómo te parece mejor llevar a cabo lo que te propones.
Archivos Adjuntos
Tipo de Archivo: zip ejemplo.zip (2,0 KB, 257 visitas)
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 31-08-2005 a las 11:39:06. Razón: (añadir un archivo adjunto)
Responder Con Cita