Delphi-Quellcode:
type
TSortiIndizes = 1..20;
TSortiSet = set of TSortiIndizes;
var
Indizes: TSortiSet;
I: TSortiIndizes
begin
for I:= TSortiIndizes(0) to TSortiIndizes(SizeOf(Indizes) shl 3 - 1) do
if I in Indizes then Break;
end;
Das sollte das machen, was Du willst. I ist dann das kleinste Element.
Gruss
Shaman