Kombination von Array und Set

[DeddyH]

Meinst Du etwas in dieser Art?

Delphi-Quellcode:

procedure TFrmMain.btnTestClick(Sender: TObject);
var Test: array of set of byte;
    i: integer;
begin
  SetLength(Test,2);
  Test[0] := [0,2,4,6,8];
  Test[1] := [1,3,5,7,9];
  for i := Low(Test) to High(Test) do
    if 3 in Test[i] then
      ShowMessage('Gefunden in Menge ' + IntToStr(i));
  SetLength(Test,0);
end;