das liefert leider das gleiche ergebnis, wie der vorherige vorschlag.
ich stell jetzt hier trotzdem mal meinen code rein, vielleicht mach ich ja nen methodischen fehler, der mir nicht auffällt;
Delphi-Quellcode:
type
TtnCardFace = (cfSeven, cfEight, cfNine, cfTen,
cfJack, cfQueen, cfKing, cfAce=22);
[..]
procedure TMainForm.Button5Click(Sender: TObject);
var
a: array[TtnCardFace] of Byte;
begin
ShowMessage(IntToStr(Length(a))); //ergibt 23 (=22+1)
ShowMessage(IntToStr(Integer(High(TFarbe)) + 1); // auch 23
ShowMessage(IntToStr(Ord(High(TFarbe)) + 1); // auch 23
end;
ergebnis sollte ja eigentlich 8 sein
Gruß
Thomas