Kompliziertes Problem mit Wochentagberechnung

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

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

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