Ver Mensaje Individual
  #3  
Antiguo 01-12-2004
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Reputación: 20
unreal4u Va por buen camino
ya que tengo un poco de tiempo de ocioso; responderé esta consulta.. .

Trabajar con archivos Ini es demasiado fácil... Sólo basta con poner en el Uses INIFiles, luego en var MyINI : TINIFile , y luego, para leer, poner esto:

Lectura archivos ini:
Código Delphi [-]
MyINI := Create('opciones.ini');
Opcion1 := MyIni.ReadString ('seccion','llave','valor_por_defecto');
Opcion2 := MyIni.ReadInteger('seccion','llave',valor_por_defecto);
Opcion3 := MyIni.ReadBool   ('seccion','llave',TRUE); // o FALSE
MyIni.Free;

donde:
'seccion' --> un string con la sección q en el archivo físico está delimitado por [seccion]
'llave' ---> un string con la llave q en el archivo fisico está delimitado por opcion=algo
'valor_por_defecto' ---> que es lo q entregará la cadena en el caso de que la llave no exista...

Tan fácil como eso... Para escritura:
Código Delphi [-]
MyIni := Create('opciones.ini');
MyIni.WriteString ('seccion','llave',sCadena);
MyIni.WriteInteger('seccion','llave',entero);
MyIni.WriteBool   ('seccion','llave',TRUE); // o FALSE
MyIni.Free;

donde sCadena, entero o TRUE son los valores q queremos escribir en el archivo ini...

Cabe destacar que writestring, writeinteger y writebool no son los únicos, hay muchos más, pero eso ya es cosa de investigar un poco...
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita