Schnittmenge bilden von 2 Mengen???

[DeddyH]

Hallo, probier das mal aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Menge1,Menge2,Ergebnis,Differenz: set of byte;
begin
  Menge1 := [1,2,3,5,9];
  Menge2 := [3,4,5,6,9];
  Ergebnis := Menge1 + Menge2;
  Differenz := Ergebnis - (Menge1 - Menge2);
  Ergebnis := Differenz - (Menge2 - Menge1);
end;