[[gatosoft]]

Empezado por Gerson12

Bueno lo q quiero es q la aplicacion q eh echo viene configurada por defecto pero el usuario tiene la opcion de configurarlo y modifcarlo a su gusto pero es algo molestoso q el usuario estee haciendo la configuracion siempre por eso queria saber si hay alguna manera de hacer para q esa configuracion q dejo el usuario quede guardada Espero me hayan entendido

Ok Gerson, ¿pero si has investigado o tratdo con algún ejemplo de lo que te hemos hablado sobre los INI?

Aquí te va una muestra...

Código Delphi [-]
Uses Inifiles;

Procedure CargarConfiguracion;
Var ArchivoIni : TIniFile;
Begin
 Try
   ArchivoIni := TIniFile.Create('C:\MiAplicacion\ArchivoDeConfiguracion.Ini'); //Si el archivo no existe se crea automáticamente en blanco
   Edit1.text := ArchivoIni.ReadString('Configuracion','Titulo');
   Edit2.text := IntToStr(ArchivoIni.ReadInteger('Configuracion','Alto',100); //El 100 es un valor por defecto
   Edit3.text := IntToStr(ArchivoIni.ReadInteger('Configuracion','Ancho',200); //El 200 es un valor por defecto
 Finally
   ArchivoIni.Free;
 end; //Try..Finally
end;

Procedure GuardarConfiguracion;
Var ArchivoIni : TIniFile;
Begin
 Try
   ArchivoIni := TIniFile.Create('C:\MiAplicacion\ArchivoDeConfiguracion.Ini'); //Si el archivo no existe se crea automáticamente en blanco
   ArchivoIni.WriteString('Configuracion','Titulo', Edit1.text);
   ArchivoIni.WriteInteger('Configuracion','Alto',StrToIntDef(Edit2.text,100)); 
   ArchivoIni.WriteInteger('Configuracion','Ancho',StrToIntDef(Edit2.text,200)); 
 Finally
   ArchivoIni.Free;
 end; //Try..Finally
end;

Puedes utilizar los procedimeintos donde creas conveniente, podría ser en el OnCreate (Cargarconfig) y en el Onclose(Guardarconfig)....