Aufzählungstypen

[Waldteufel]

Mir fiele spontan eine Quick-&-Dirty-Lösung ein: (ungetestet)

Delphi-Quellcode:

var
  a : array[TMeinTyp] of byte;
  i : integer;
begin
  i := Length(a);
end;