Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#14

AW: Kompliziertes Problem mit Wochentagberechnung

  Alt 29. Aug 2017, 15:17
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat