Ok hier noch einmal alles was ich bisher habe
Speichern
Delphi-Quellcode:
var
aDayOfWeekSet: TDayOfWeekSet ;
begin
for i := 0 to 6 do
begin
aCheckBox := (FindComponent('cbDay' + IntToStr(i)) as TCheckBox);
if Assigned(aCheckBox) and aCheckBox.Checked then
aDayOfWeekSet := aDayOfWeekSet + [aCheckBox.Tag]; // Das Tag jeder CheckBox enthält Zahlen von 0-6 (Montag-Sonntag)
end;
IniS.WriteInteger(section, ident, Byte(aDayOfWeekSet));
end;
Lesen
Delphi-Quellcode:
Byte(exclude):= IniS.ReadInteger(section, ident, 0);
ShowMessage(IntToStr(Byte(exclude))); // z.B.: 28 = Dienstag, Mittwoch, Donnerstag waren "checked"
cbDay2.Checked := 2 in exclude;
cbDay1.Checked := 1 in exclude;
cbDay0.Checked := 0 in exclude;
Speichern funktioniert, lesen leider nicht
