FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
color y letra en un archivo .ini
Hola,
Me estoy haciendo una pequella agendilla, y quisiera saber como puedo meter en un archivo .ini el color y la letra seleccionada y despues recuperarla, gracias. (desde el archivo .ini, claro) |
#2
|
||||
|
||||
Creo que con este ejemplo a poco que te esmeres lo solucionas.
Código:
procedure TIni.Button2Click(Sender: TObject); Var Fichero : Tinifile; Begin Fichero := Tinifile.Create ('d:/MiParadox.ini'); // Accedemos al Fichero //Guardamos el INI //Sección - Tipo_Dato - Valor Fichero.WriteString ('NetDir','String','MiDir'); Fichero.WriteString ('TempDir','String','OtroDir'); Fichero.Writebool ('LocalShare','Booleano',False); Fichero.WriteInteger('Usuarios','Integer',22); Fichero.WriteDate('Fecha','Date',Date); Fichero.WriteString('Letra','String','Symbol'); Fichero.free; //Cerramos el Fichero. end; procedure TIni.Button1Click(Sender: TObject); Var Fichero: TiniFile; Begin Fichero := TIniFile.Create ('D:/MiParadox.ini'); // Accedemos al Fichero //Leemos el INI //Read+TipoDato(Seccion - Tipo_Dato - Valor que tomará sino hay nada) Edit1.text:=Fichero.ReadString ('NetDir','String','Error'); Edit2.text:=Fichero.ReadString ('TempDir','String','Error'); CheckBox1.Checked:=Fichero.Readbool('LocalShare','Booleano',False); Edit3.Text:=IntToStr(Fichero.ReadInteger('Usuarios','Integer',-1)); Edit4.Text:=DateToStr(Fichero.ReadDate('Fecha','Date',Date)); Edit5.Text:=Fichero.ReadString ('Letra','String','Arial'); lbtipoletra.Font.Name:=Fichero.ReadString ('Letra','String','Arial');//aquí esta el ejemplo Fichero.Free; // Cerramos el Fichero end;
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
||||
|
||||
Cita:
pero sigo sin conserguir meter el color en un archivo .ini, alguna idea, gracias por adelantado |
#4
|
||||
|
||||
Creo que con lo que te ha pasado Marcos, sobra información como para hacer lo que tu pides. Te recomiendo leer la ayuda de la clase TIniFile...
Para abrir el archivo, tanto para leer como para escribir, lo haces al crear la clase Tinifile.Create(Archivo), para escribir un dato, tienes que elegir el método adecuado del grupo de métodos Write (WriteString, WriteBool, WriteInteger, WriteDate...) para leer un dato, tienes que elegir el método adecuado según el tipo de dato del grupo de métodos Read. Tratándose de que los colores son números enteros seguramente los métodos a utizar serán WriteInteger y ReadInteger. Código:
uses IniFiles; procedure TForm1.FormCreate(Sender: TObject); var IniFile: TIniFile; begin IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')); try Panel1.Color := IniFile.ReadInteger('Colores', 'Panel', Panel1.Color); finally IniFile.Free; end; end; procedure TForm1.FormDestroy(Sender: TObject); var IniFile: TIniFile; begin IniFile := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini')); try IniFile.WriteInteger('Colores', 'Panel', Panel1.Color); finally IniFile.Free; end; end;
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#5
|
||||
|
||||
Agradecimientos
Cita:
Como habras notado no se mucho de esto de programar, y lo que no sabia es si el color lo tenia que guardar como cadena o entero, muchas gracias de nuevo. |
|
|
|