[Erledigt ]Logik-Problem mit and/or-Verknüpfung

[Wolfgang Mix]

@Popov und @fkerber

Ihr hattet recht, es ist ein Klammerproblem.
Mit Popovs Klammern funzt es:

Danke an Euch

LG

Wolfgang

[DeddyH]

Nur der Vollständigkeit halber:

Delphi-Quellcode:

const
  CORRECTIONVALUE: array[Boolean] of integer = (0, 1);
...
  schaltjahrkorrektur := CORRECTIONVALUE[(monat in (1,2)) and IsLeapYear(jahr)];

[Wolfgang Mix]

Danke Detlef,

in (1,2) hatte ich auch versucht,
allerdings mit []

[DeddyH]

Du hast natürlich Recht, das kommt davon, wenn man direkt im Editor tippt. Vielleicht wäre das so aber lesbarer:

Delphi-Quellcode:

const
  CORRECTIONVALUE: array[Boolean] of integer = (0, 1);
  POSSIBLYWRONGMONTHS = [MonthJanuary, MonthFebruary];
...
  schaltjahrkorrektur := CORRECTIONVALUE[(monat in POSSIBLYWRONGMONTHS) and IsLeapYear(jahr)];

[Hobby-Programmierer]

Hmm, sollte Result:= ((Month in [1,2]) and IsLeapYear(Year)) nicht ausreichen?

Edit: also mein Delphi führt folgendes korrekt aus

Delphi-Quellcode:

function schaltjahrkorrektur(Month, Year: Integer): Boolean;
begin
  Result:= ((Month in [1,2]) and IsLeapYear(Year));
end;

[DeddyH]

Wieso sollte es auch nicht, ich habe ja zugegebenermaßen einen Syntaxfehler gemacht. Die 2. Konstante habe ich nur eingeführt, um Magic Values zu vermeiden, man kann natürlich auch auf das Set verzichten und gleich die Konstanten nehmen, aber ich habe so etwas lieber zentral, falls man öfter darauf zugreift (DRY).

[Hobby-Programmierer]

Auch wenn ich deinen Code immer sehr schätze, muss ich zugeben das mich als Amateur deine Hilfsconstanten eher verwirren.
Aber das des funktioniert war eher darauf fokussiert

Zitat von Wolfgang Mix:

in (1,2) hatte ich auch versucht, allerdings mit []

Schönen Abend noch