Ich hab's jetzt so gemacht:
Delphi-Quellcode:
type
TSortiIndizes = 1..20;
TSortiSet = set of TSortiIndizes;
var
Indizes: TSortiSet;
Dann kann ich an eine Prozedur einen Parameter vom Typ TSortiSet übergeben...
Aber sets sind doch eigentlich Bit-Flags (oder so, das ist nicht so mein Bereich
)
Kann man dann nicht - egal welcher Typ - irgendwie herausfinden, welcher Wert der kleinste ist?
Ungefähr so (ich weiß, nicht ganz richtig):
funktion Min(pSet: pointer; pSetTyp: pointer): Integer;
Und diese Funktion ermittelt dann das Minimum?
P.S. Was macht denn
Delphi-Quellcode:
for I:= 1 to SizeOf(Indizes) shl 3 do
if I in Indizes then Break;