Ordinaltyp - Obergrenze

[Prototypjack]

Moin,

Ich habe hier gerade ein kleines Problem, denn mir will einfach nicht mehr einfallen, wie man die Obergrenze (also den ordinalen Maximalwert) eines Ordinaltyps erfahren kann.

Delphi-Quellcode:

TObst = (obApfel, obBirne, obBanane);

procedure Foo;
begin
  Length(TObst); // Funktioniert leider nicht
  High(TObst); // auch nicht;
end;

Als gewünschtes Ergebnis hätte ich gerne 2 (0, 1, 2 = letzter, möglicher Wert)

Danke & Grüße,

Max

PS: Gesucht habe ich auch schon, aber nichts gefunden (irgendwie wollen mir auch nicht die richtigen Suchbegriffe einfallen).

[Dax]

Du suchst Hi und Lo (so hiessen die, glaub ich)...

[Prototypjack]

Moin,

Selbst dann bekomme ich noch die Meldung: Inkompatible Typen.

Grüße,
Max

[omata]

max_index:=ord(high(TObst));

[Prototypjack]

Moin,

Ach, ich Trottel. Ich lag mit High() von Anfang an richtig, ich ging nur davon aus, dass es mir einen Integer-Wert liefert. Aber High() ist ja durch die *wuppdi*-Compiler-Magic dazu befähigt mir meinen Ordinaltyp direkt wiederzugeben (also obBanane in diesem Fall).

Mit

Ord(High(TObst)); geht es.

Grüße,

Max

Edit: Genau. Danke Omata