Bist Du sicher, dass Du auch früher schon Integer-Literale direkt gecastet hast? Wenn ich statt
Delphi-Quellcode:
var
GroupSet: TGroupSet;
begin
GroupSet := TGroupSet(Byte(2));
end.
Delphi-Quellcode:
var
b: Byte;
GroupSet: TGroupSet;
begin
b := 2;
GroupSet := TGroupSet(b);
end.
schreibe, funktioniert's.