Schnittmenge berechnen

[tobiasw]

hi,

ich soll ein Prog schreiben das die Schnittmenge berechnet und in einem Stringgrid ausgibt.
Ich habe jetzt den Code hiermal gepostet soweit ich gekommen bin wer kann mir den helfen das zu vervollständigen.

Gruß

Oliver

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type Menge = set of 1..12;
var a, b:Menge;
text1:string;
text2:string;
i:string;
begin
a := [1,2,3];
b := [3,4,5];



end;

end.