Wie eine Summe in seine bekannten Summanden zerlegen ?

[Uwe Raabe]

Delphi-Quellcode:

var
  inGruppe: Integer;


{ alle verwendeten DBs iterieren }
inGruppe := <Wert aus Datenfeld>;
for I in TIntegerSet(inGruppe) do begin
  { hier hat I nur die enthaltenen Werte }
end;

{ DB16 hinzufügen, wenn noch nicht da }
inGruppe := <Wert aus Datenfeld>;
Include(TIntegerSet(inGruppe), 16);
<Wert in Datenfeld> := inGruppe;