Kombination von Array und Set

[Draos]

Hi Leute,

habe schon Delphisuche durchgeschaut und auch hier. Habe zwar kein Beispiel gefunden. Aber auch nicht das es nicht geht.

Gemeint ist eine solche Konstruktion.

Delphi-Quellcode:

MySet=Array of Set of Char;

Warum ich sowas suche? Tja dann bräuchte ich nur mit einer Schleife alle Sets nacheinander vergleichen und nicht 20 Setvariablen anlegen. Desweiteren will ich in MySet Operatoren unterbringen, wobei der Arrayindex als Wertigkeit dienen soll. Aber wie

Geht das? Also wie füll ich sowas, da Sets ja Konstanten sind. oder muss ich doch selber nachhelfen? Aso habe Delphi 7 Enterprise zur Verfügung.

Danke im Vorraus

[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;

[Draos]

ähm...jo. Dachte Set kann man nur als Konstanten deklarieren. Hab mich geirrt. Das macht die Sache einfacher.

Danke cya.