Schnittmenge berechnen

[Sharky]

Hai tobiasw,

hier mal ein Beispiel. Es gibt fünf Buttons, 1 Edit und 1 Label.
Mit zwei Buttons werden die Mengen gelöscht. Mit zwei Buttons wird jeweils eine zahl aus dem Edit in eine der beiden Mengen eingefügt. Mit dem fünften Button wir im Label die Schnittmenge ausgegeben.

Delphi-Quellcode:

type
  Menge = set of 1..12;
var
  a, b : Menge;

procedure TForm1.Clear_Set_AClick(Sender: TObject);
begin
  a := [];
end;

procedure TForm1.Clear_Set_BClick(Sender: TObject);
begin
  b := [];
end;

procedure TForm1.Add_to_AClick(Sender: TObject);
begin
  a := a + [StrToInt(Edit1.Text)];
end;

procedure TForm1.Add_to_BClick(Sender: TObject);
begin
  b := b + [StrToInt(Edit1.Text)];
end;

procedure TForm1.Show_SchnittmengeClick(Sender: TObject);
var
  c : Menge;
  ndx : Integer;
begin
  c := a * b;
  Label1.Caption := '';
  for ndx := 1 to 12 do
    if (ndx IN c) then
    begin
      Label1.Caption := Label1.Caption + IntToStr (ndx) + ' ';
    end;
end;