Maximum eines Wertebereiches ermitteln

[guidok]

Zitat:

Zitat von hadschi92

Delphi-Quellcode:

maximal := Values[Low(Values)];
for i := low(Values) to high(Values) do
  if maximal < Values[i] then
    maximal := Values[i];

Stellst du dir das etwa so vor?

Zitat:

Wird ihm nur auch nichts bringen. Damit könnte er auch nur ein Array auslesen, aber eben nicht seine Konstanten, afaik.

[Angel4585]

Delphi-Quellcode:

const testrange = ['a'..'z'];

Was sollte dann hier rauskommen? Ord('z')?

[himitsu]

Delphi-Quellcode:

const MONTH_DAY = [1..28];
var i: Integer;
begin
  i := 255;
  while (i >= 0) do
    if i in MONTH_DAY then break else Dec(i);
  ShowMessage(IntToStr(i));
end;

i=255 ist nur ein beliebiger Wert, welcher auf viele SET passend gewählt sein sollte.

korrekter wäre es so

Delphi-Quellcode:

type TMONTH_DAY = 1..31;
const MONTH_DAY: Set of TMONTH_DAY = [1..28];
var i: TMONTH_DAY;
begin
  i := High(TMONTH_DAY);
  while (i >= Low(TMONTH_DAY)) do
    if i in MONTH_DAY then break else Dec(i);
  ShowMessage(IntToStr(Ord(i)));
end;

Man könnte aber auch die RTTI bemühen, aber diese hab bis einschließlich D2009 'ne "Macke" und kommt mit SETs nicht klar, welche Lücken aufweisen, wie z.B. [1,3,5,50].
In soeinem Fall gibt es in der RTTI keine Informationen über die Werte innerhalb des Arrays ... also absolut keine Inforationen (keine Namen und auch keine "Belegungsliste")

[gammatester]

Wenn man mit den etwas veränderten Definitionen

Delphi-Quellcode:

type
  MONTH_DAY = 1..28;
const
  VALUES : array[0..3] of integer = (1,50,3,5);

leben kann, sind die MONTH_DAY-Konstanten via Low(MONTH_DAY) und High(MONTH_DAY) verfügbar. Bei Values geht's nur mit MinIntValue(VALUES) und MaxIntValue(VALUES), also nicht konstant.

[Angel4585]

Zitat:

Zitat von gammatester

Wenn man mit den etwas veränderten Definitionen

Delphi-Quellcode:

type
  MONTH_DAY = 1..28;
const
  VALUES : array[0..3] of integer = (1,50,3,5);

leben kann, sind die MONTH_DAY-Konstanten via Low(MONTH_DAY) und High(MONTH_DAY) verfügbar. Bei Values geht's nur mit MinIntValue(VALUES) und MaxIntValue(VALUES), also nicht konstant.

Das funzt dann aber nimmer, oder?

Delphi-Quellcode:

if irgendeinwert in MONTH_DAY then bla;

[gammatester]

Zitat:

Zitat von Angel4585

Das funzt dann aber nimmer, oder?

Delphi-Quellcode:

if irgendeinwert in MONTH_DAY then bla;

War auch nicht gefordert.