Den Ordinal Wert eines Elements im Set ermitteln

[Bjoerk]

Oder als array[Char] of boolean?

Delphi-Quellcode:

var
  C: char;
  SpecialCharacters: array[Char] of boolean;
begin
  FillChar(SpecialCharacters[#0], Length(SpecialCharacters) * SizeOf(SpecialCharacters[#0]), 0);
  SpecialCharacters['ß'] := true;
  for C := Low(Char) to High(Char) do
    if SpecialCharacters[C] then ShowMessage(Format('%s is a SpecialCharacter', [C]));
end;