Registriert seit: 12. Aug 2003
Ort: Soest
4.027 Beiträge
Delphi 10.1 Berlin Enterprise
|
AW: Integer in Set laden
18. Okt 2019, 13:33
Delphi-Quellcode:
uses
TypInfo;
type
TNiveau = (nA, nB, nC, nD, nE, nF);
TNiveauSet = set of TNiveau;
var
n: TNiveau;
s: TNiveauSet;
begin
Byte(s) := 57;
for n := Low(TNiveau) to High(TNiveau) do
if n in s then
Write(GetEnumName(TypeInfo(TNiveau), Ord(n)), ' ');
end.
|