Wie six1 schon schreibt, geht das
in nur mit ordinalen Typen.
Aber dazu gehören auch Sets
Code: Alles auswählen
type
TMyItem = (ab, be, cd, ef, xy, usw, unknown);
TMyItems = set of TMyItem;
const
MyItemString : array[TMyItem] of string = ('ab', 'be', 'cd', 'ef', 'xy', 'usw', 'unknown');
function checktype(which : TMyItems) : boolean;
var Item : TMyItem;
begin
for Item := ab to unknown do if kontakt_[a].zweck = MyItemString[Item] then Break;
Result := Item <> unknown;
if Result then Result := Item in which; // Hier geht das
end;
Die Funktion checktype wird dann so aufgerufen
Code: Alles auswählen
if checktype([ab, be]) then MachDies else
if checktype([xy, usw]) then MachJenes else
Machsonstwas;