Anzahl der Elemente in einem Mengentyp

[Steve]

Delphi-Quellcode:

TYPE
  TWert  = (wWert1, wWert2, wWert3);
  TWerte = SET OF TWert;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  // HIGH gibt den größten Wert im Bereich des Arguments zurück.
  // ORD  gibt den Ordinalwert eines Ausdrucks des Typs Ordinal zurück.
  // beginnt mit 0, darum +1 für anzahl
  ShowMessage(IntToStr(Ord(high(TWert))+1));
end;

edit: Oh sorry ich seh grad, dass Du bissl was anderes gefragt hast

Gruß
Stephan