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?

zusammenfalten · markieren

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;

Hallo, probier das mal aus:

markieren

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;

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.

markieren

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

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.

markieren

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;