Aufzählungstypen "addieren"

[shmia]

Dazu nimmt man doch ein Set, oder nicht?

Delphi-Quellcode:

type
  TSortDir = (sdAscending, sdDescending);
  TSortDirSet = set of TSortDir;
...
var
  FSortOptions : TSortDirSet;
begin
  FSortOptions := [];
  FSortOptions := FSortOptions + sdAscending;
  FSortOptions := FSortOptions + sdDescending;