Zahlen in einer Menge (Set Of) speichern, Verständnisfrage

[stoxx]

Hi Dax !

also das funktioniert wohl, sagst Du mir noch, warum das so funktioniert ?
hab es jetzt so.

Und wie teste ich genauso effizient, ob in der Menge ein Zustand enthalten ist ?

Delphi-Quellcode:

procedure includefast_A(var m : TMenge; Value : byte);
begin
  Include(m, TMengenelemente(Ord(a1) + Value -1) );
end;

procedure includefast_B(var m : TMenge; Value : byte);
begin
  Include(m, TMengenelemente(Ord(b1) + Value -1) );
end;


procedure includefast_C(var m : TMenge; Value : byte);
begin
  Include(m, TMengenelemente(Ord(c1) + Value -1) );
end;