Kleinster Wert in set

[maximov]

Da gibt es ein bessere variante, die ohne das gekröse mit sizOf auskommt:

Delphi-Quellcode:

type
  TSortiIndizes = 1..20;
  TSortiSet = set of TSortiIndizes;
var
  Indezes: TSortiSet;
  i:TSortiIndizes;
..
for i := low(i) to high(i) do
  if i in Indezes then break;