Kompliziertes Problem mit Wochentagberechnung

[Glados]

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

[Uwe Raabe]

Zitat von Glados:

 ShowMessage(IntToStr(Byte(exclude))); // z.B.: 28 = Dienstag, Mittwoch, Donnerstag waren "checked"

Das stimmt schon mal nicht! 28 = 4 + 8 + 16 entspricht Mittwoch, Donnerstag, Freitag. Schau mal nach, was in deinen Checkbox.Tags wirklich steht.

Übrigens:
  aDayOfWeekSet := aDayOfWeekSet + [aCheckBox.Tag];
geht auch so:
  Include(aDayOfWeekSet, aCheckBox.Tag);

[Glados]

Zitat:

Schau mal nach, was in deinen Checkbox.Tags wirklich steht.

Du hattest recht. Ich hatte eine 1-basierte Zählung in den Tags, nicht 0-basiert

Zitat:

Kennst du Cromis cron-scheduler? Du erfindest das Rad gerade erneut.

Vor Cron habe ich mich schon mein ganzes Leben lang erfolgreich versteckt was wohl daran liegt, dass ich es nicht leiden kann genau so wenig wie Linux.

Klar, das ist extrem flexibel, keine Frage! Aber das jetzt alles umbauen... nee.

Es funktioniert nun alles
Danke an alle die geholfen haben dieses/mein Mysterium zu lösen.