Guardar configuraciones

[marcoszorrilla]

Ok, creo que hablé un poco mal el tono. Perdón.

Está bien reconocer los fallos, efectivamente te han dado el camino a seguir para que puedas llevar a buen fin lo que pretendes.

Aquí tienes el ejemplo que pides, como tal ejemplo no hace exactamente lo que tu quieres pero esa parte la dejo para ti.

Código Delphi [-]
  
  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');
  lbTipoletra.Color:=Fichero.ReadInteger ('Color','Integer',clBlue);
  Fichero.Free; // Cerramos el Fichero
  end;
  
  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
  MiColor:=clBlue;
  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.WriteInteger('Color','Integer',MiColor);
  Fichero.free; //Cerramos el Fichero.
  end;

Un Saludo.

[REHome]

Gracias por la ayuda.

El el boton dos, me da error donde pone Micolor. ¿Sabes como arreglarlo?

----------------------

Hice uno por mi mismo. El problema que tengo, que el color que elijo, no se queda guardado. Siempre sale negro.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, inifiles;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
with label1 do
case font.color of
clWindowText: font.Color := clred;
clred: font.color := clMaroon;
clMaroon: font.color := clGreen;
clGreen: font.color := clwindowtext;
end;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
Fichero: TiniFile;
begin
Fichero := TIniFile.Create ('C:/MiSuperIni.ini'); // Accedemos al Fichero
label1.Caption:=Fichero.ReadString ('NetDir','String','Error');
Fichero.Free; // Cerramos el Fichero

end;

procedure TForm1.Button2Click(Sender: TObject);
Var
Fichero : Tinifile;

begin
Fichero := Tinifile.Create ('C:/MiSuperIni.ini'); // Accedemos al Fichero

Fichero.WriteString ('NetDir','String','MiDir');

Fichero.free; //Cerramos el Fichero.

end;

end.

[delphi.com.ar]

Empezado por REHome

El el boton dos, me da error donde pone Micolor. ¿Sabes como arreglarlo?

Cuando nos notificas de un error, es bueno que aclares de que error se trata, y en qué línea se produce. Te recomiendo leer la Guía de Estilos del foro.

Por otro lado, veo que esta utilizando la barra invertida (/) para informar rutas aparentemente de Windows cuando la barra a utilizar es "\". Ademas veo que estas escribiendo un valor fijo, no lo que tengas en tus componentes: Fichero.WriteString ('NetDir','String','MiDir');


Saludos!