Hi,
folgender Code (vereinfacht):
Delphi-Quellcode:
type
TElement = (Wert1, Wert2, Wert3, Wert4, Wert5);
TElemente1 = set of Wert2..Wert4;
TElemente2 = set of TElement;
{...}
procedure Irgendwas(Wert: TElemente1);
begin
//...
end;
Wenn ich jetzt folgenden Aufruf durchführe:
Irgendwas( [Wert1, Wert2] );
gibt es keine Fehlermeldung.
Warum nicht?
Wert1 ist doch gar nicht in TElemente1 enthalten...
Wie kann ich das Problem lösen, ohne einen zweiten Typ TElement zu definieren ?