Ver Mensaje Individual
  #4  
Antiguo 05-02-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita