Maximum eines Wertebereiches ermitteln

[angos]

Auch da brauchst keine Funktion. Vielleicht hilft ja das hier:

Delphi-Quellcode:

const
  MONTH_DAY_MIN = 1;
  MONTH_DAY_MAX = 28;

  MONTH_DAY = [MONTH_DAY_MIN..MONTH_DAY_MAX];

  VALUES_MAX = 50;
  VALUES = [1,VALUES_MAX,3,5];