Aufzählungstypen

[tn249]

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