Schnittmenge bilden von 2 Mengen???

[webmarathon]

hallo

ich will gerade die Schnittmengen bilden von 2 Mengen. Eigentlich ist das Zeichen doch * aber irgendwie sagt der andauernd, Operator ist auf Operandentyp nicht anwendbar. Weiß jemand was da falsch ist?

Delphi-Quellcode:

var
  Form1: TForm1;
  mengea: Tmengea;
  mengefe: Tmengefe;        //Menge Feuer
  mengewa: Tmengewa;        //Menge wasser


implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
  var fewa:char;
begin
  mengea:=[];
  mengefe:=Feuer;
  mengewa:=Wasser;
  fewa:=mengefe*mengewa;

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

[Hawkeye219]

Hallo,

sind Tmengefe und Tmengewa wirklich Mengentypen oder nur Aufzählungs- bzw. Unterbereichstypen? Die von dir angegebene Fehlermeldung erhalte ich selbst bei der Verwendung von inkompatiblen Mengentypen nicht.

Delphi-Quellcode:

type
  TType1 = (red, yellow, green, blue);  // Aufzählungstyp
  TType2 = red..green;                  // Unterbereichstyp
  TType3 = set of red..blue;            // Mengentyp

Das Ergebnis einer Mengenverknüpfung kann natürlich niemals vom Typ char sein.

Gruß Hawkeye

[DeddyH]

Zitat:

Zitat von Hawkeye219

Das Ergebnis einer Mengenverknüpfung kann natürlich niemals vom Typ char sein.

Stimmt, das war mir gar nicht aufgefallen. Ich habe allerdings diese Fehlermeldung bekommen, als ich versucht habe, 2 Mengen miteinander zu multiplizieren. Also muss man wohl den "umständlichen" Weg gehen. Hier noch einmal etwas anders formuliert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Menge1,Menge2,Ergebnis: set of byte;
begin
  Menge1 := [1,2,3,4,5,9,11];
  Menge2 := [0,4,5,6,9];
  //Schnittmenge = Vereinigungsmenge - Differenzmenge
  //Differenzmenge = Elemente aus Menge1, die nicht in Menge2 und umgekehrt
  Ergebnis := (Menge1 + Menge2) - ((Menge1 - Menge2) + (Menge2 - Menge1));
end;