Kompliziertes Problem mit Wochentagberechnung

[himitsu]

Du willst den "nächsten" Tag, also exclusive dem Aktuellen/Übergebenen.
Da muß die Schleife mindestens einmal durchlaufen werden, also prüft man am Ende (repeat-until)
soll inkl. des Aktuellen/Übergebenen auswertet werden, dann vor der Schleife prüfen (while-do).

Und scheinbar hast du die Hilfe nicht gesehn?
GetDayOfWeek = DayOfTheWeak

Zitat:

DayOfTheWeek is ISO 8601 compliant

Warum ist aExcludeDays ein TArray<string> anstatt einem TArray<Boolean>, wobei da ein SET-OF-WeekDays eventuell verständlicher ist.
siehe TDayOfWeekSet ... aber eventuell auch als 1..7, je nach Datenformat
PS: Für die "unverständlichen" Zahlen gibt es auch Wochentagskonstanten, die man verwenden darf.

Und wieso muß DayOfWeek an die Funktion übergeben werden, wenn du auch den Startwert aus StartTimestamp rausholen kannst?

PS: Eine Fehlerprüfung (z.B. Assert) am Anfang wäre nicht schlecht, falls jemand auf die Idee kommt und alle Tage verbietet. -> Endlosschleife

[TigerLilly]

>while True do

So was ist immer ein repeat/until.

[Glados]

Zitat:

Warum ist aExcludeDays ein TArray<string> anstatt einem TArray<Boolean>, wobei da ein SET-OF-WeekDays eventuell verständlicher ist.

Weil der Datendsatz 0, -1, -1, -1, -1, -1, -1 aus einer Textdatei kommt.
Diesen lese ich mit Ini ReadString, das Resultat packe ich in ein Array und übergebe es der Funktion.

In ein Set würde ich meine Auswahl folgendermaßen speichern

Delphi-Quellcode:

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];
 end;

Nur wie soll man so etwas in eine Datei abspeichern?

[Uwe Raabe]

Zitat von Glados:

Nur wie soll man so etwas in eine Datei abspeichern?

Da in diesem Set gerade mal 7 Bits belegt sind, würde ein Cast auf bzw. von Byte reichen.

[Glados]

Ok speichern so
IniS.WriteInteger(section, ident, Byte(aDayOfWeekSet)); Das funktioniert soweit.

Mit dem Laden tue ich mich aber noch schwer

Delphi-Quellcode:

var
 exclude: TDayOfWeekSet;
begin
 exclude := TDayOfWeekSet(Byte(IniS.ReadInteger(section, ident, 0))); // in der Ini steht 8/Mittwoch

 // cdDay2 = Mittwoch
 cbDay2.Checked := 8 in exclude;
end;

[Uwe Raabe]

Zitat von Glados:

Ok speichern so
IniS.WriteInteger(section, ident, Byte(aDayOfWeekSet)); Das funktioniert soweit.

Mit dem Laden tue ich mich aber noch schwer

Dann vielleicht so:
  Byte(exclude) := IniS.ReadInteger(section, ident, 0);

[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);

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