Kompliziertes Problem mit Wochentagberechnung

[Glados]

Ok das wusste ich nicht. Ich dachte das Casten beim Auslesen + das "in" würden reichen.
Mh das funktioniert auch nicht, obwohl Byte(exclude) nun "8" entspricht.

[Uwe Raabe]

Oder ganz komfortabel mit einem Record Helper:

Delphi-Quellcode:

  TDayOfWeekSetHelper = record helper for TDayOfWeekSet
    function GetAsInteger: Integer;
    procedure SetAsInteger(const Value: Integer);
    property AsInteger: Integer read GetAsInteger write SetAsInteger;
  end;

function TDayOfWeekSetHelper.GetAsInteger: Integer;
begin
  Result := Byte(Self);
end;

procedure TDayOfWeekSetHelper.SetAsInteger(const Value: Integer);
begin
  Byte(Self) := Value;
end;

...
  IniS.WriteInteger(section, ident, aDayOfWeekSet.AsInteger);
...
  exclude.AsInteger := IniS.ReadInteger(section, ident, 0);

[Glados]

Werde ich definitiv noch umsetzen.
Aber wieso schlägt denn ein Vergleich cbDay2.Checked := 8 in exclude; fehl? Die 8 ist ganz sicher da drin vorhanden.

Wie ich aktuell prüfe

Delphi-Quellcode:

cbDay2.Checked := 8 in exclude;
cbDay1.Checked := 4 in exclude;
cbDay0.Checked := 2 in exclude;

[Uwe Raabe]

Zitat von Glados:

Werde ich definitiv noch umsetzen.
Aber wieso schlägt denn ein Vergleich cbDay2.Checked := 8 in exclude; fehl? Die 8 ist ganz sicher da drin vorhanden.

Wie ich aktuell prüfe

Delphi-Quellcode:

cbDay2.Checked := 8 in exclude;
cbDay1.Checked := 4 in exclude; 
cbDay0.Checked := 2 in exclude;

So funktionieren Sets aber nicht. Die 8 kann gar nicht im Set vorkommen, da die Wochentage nur von 0..6 definiert sind.

Delphi-Quellcode:

cbDay2.Checked := 2 in exclude; // Mittwoch
cbDay1.Checked := 1 in exclude; // Dienstag
cbDay0.Checked := 0 in exclude; // Montag

Oder besser gleich so deklarieren:

Delphi-Quellcode:

type
  TDayOfWeek = (dowMontag, dowDienstag, dowMittwoch, dowDonnerstag, dowFreitag, dowSamstag, dowSonntag);
  TDayOfWeekSet = set of TDayOfWeek;

[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

[generic]

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


Ich hatte da 2014 mal drüber geschrieben:
https://entwickler.de/online/develop...al-114967.html

Die Cromis homepage geht gerade bei mir nicht:
http://web.archive.org/web/201603150...ron-scheduler/

[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.

[himitsu]

Wenn man das als SET mit "Namen" deklariert hat, könnte man auch über die TypeInfo oder RTTI das SET von/in einen String umwandeln.

[Glados]

Du meinst damit die Controls dahinter die richtigen Captions bekommen?