Ver Mensaje Individual
  #5  
Antiguo 05-02-2004
Avatar de VolaRe
VolaRe VolaRe is offline
Miembro
 
Registrado: ago 2003
Posts: 121
Reputación: 21
VolaRe Va por buen camino
Agradecimientos

Cita:
Empezado por delphi.com.ar
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;
Saludos!
Muchas gracias,
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.
Responder Con Cita