type
Blarg = (map, yes, no, good, others); //enumerated stuff
procedure Test(Map: string; Good: Blarg);
begin
case Good of
map: WriteLn('A');
yes: WriteLn('B');
no: WriteLn('C');
good: WriteLn('D');
others: WriteLn('E);
else WriteLn('F');
end;
end;
Instead of writing "A" when blarg is "map", it will write F sense its thinking "map" as the variable "Map", not the enumerated number,