gemme checkbox = checked

Den bedste metode jeg kender til, er følgende:

Indsæt en memo1 på din form.

Under din CheckBox1's OnClick skriver du:

if checkbox1.checked = true then
begin
  if not(pos('check1TRUE',memo1.text) <> 0) then
    if pos('check1FALSE',memo1.text) <> 0 then
        memo1.text := stringreplace(memo1.text,'check1FALSE','check1TRUE', [rfreplaceall,rfreplaceall]) else
        memo1.lines.add('check1TRUE');
end else

begin
  if not(pos('check1FALSE',memo1.text) <> 0) then
    if pos('check1TRUE',memo1.text) <> 0 then
        memo1.text := stringreplace(memo1.text,'check1TRUE','check1FALSE', [rfreplaceall,rfreplaceall]) else
        memo1.lines.add('check1FALSE');
end;

ps. koden er skrevet direkte i notepad, da jeg ikke har Delphi lige ved hånden, så kan ikke garantere for nogen fejl, men prøv dig lidt frem med den.

Men mener da den skulle virke uden problemer...

Eller sådan her...


procedure SaveSettings;
var
  ini : TIniFile;

  procedure SaveCheckBox(Chk : TCheckBox);
  begin
    ini.WriteBool('CheckBoxes',Chk.Name,Chk.Checked);
  end;

begin
  ini := TIniFile.Create('d:\tmp\MyIniFile.ini');
  SaveCheckBox(CheckBox1);
  SaveCheckBox(CheckBox2);
  SaveCheckBox(CheckBox3);
  ...
  ini.Free;
end;

procedure LoadSettings;
var
  ini : TIniFile;

  procedure GetCheckBox(Chk : TCheckBox);
  begin
    Chk.Checked := ini.ReadBool('CheckBoxes',Chk.Name,False);
  end;

begin
  ini := TIniFile.Create('d:\tmp\MyIniFile.ini');
  GetCheckBox(CheckBox1);
  GetCheckBox(CheckBox2);
  GetCheckBox(CheckBox3);
  ....
  ini.Free;
end;

dcgeek: nu vil jeg ikke have en memo på min form

doc404:

får nogle fejlmeldinger om de forskellige checkbox

var
  Form1: TForm1;
  ini : Tinifile;

implementation

{$R *.dfm}

procedure TForm1.SaveClick(Sender: TObject);
var i : Integer;
begin
ini := TIniFile.Create('d:\MyIniFile.ini');

for i := 0 to ComponentCount-1 do
  if (Components[i] is TCheckbox) then
  ini.WriteBool('settings',components[i].Name,(Components[i] as TCheckbox).Checked);

  ini.Free;
end;

procedure TForm1.readClick(Sender: TObject);
var
i : integer;
begin
ini := TIniFile.Create('d:\MyIniFile.ini');

for i := 0 to ComponentCount-1 do
  if (Components[i] is TCheckbox) then
    (Components[i] as TCheckbox).Checked := ini.ReadBool('settings',components[i].Name,false);
  ini.Free;
end;


Stoney

tak stoney:
det var lige det

Gik ud fra du kunne finde ud af at ændre navnene på dem...