var
    i , j :integer;
    inb :boolean;
begin
  for i := 0 to high(a)  do
  begin
    inb := false;
    for j := 0 to high(b) do
    begin
      if a[i] = b[j] then
        inb := true;
    end;
    if inb then showmessage('Get :"' a[i] '" in array b');
  end;
end;

type
  TCharSet = set of Char;    procedure TForm1.Button1Click(Sender: TObject);
var
  bSet: TCharSet;
  I, Index: Integer;
  KeyList: TStringList;
  Key: string;
begin
  //當array a,b 內含值為字元時
  bSet := [];
  for I := 0 to Length(b)-1 do bSet := bSet   [b[I]];
  for I := 0 to Length(a)-1 do
    if not (a[I] in bSet) then Print(a[I]);      //當array a,b 內含值為數值時
  KeyList := TStringList.Create;
  try
    KeyList.Duplicates := dupIgnore;
    KeyList.Sort := True;
    for I := 0 to Length(b)-1 do
      KeyList.Add(Format('.10d',[b[I]]));        for I := 0 to Length(a)-1 do
    begin
      Key := Format('.10d',[a[I]]);
      if not KeyList.Find(Key, Index) then Print(a[I]);
    end;
  finally
    KeyList.Free;
  end;      //當array a,b 內含值為字串時
  KeyList := TStringList.Create;
  try
    KeyList.Duplicates := dupIgnore;
    KeyList.Sort := True;
    for I := 0 to Length(b)-1 do KeyList.Add(b[I]);        for I := 0 to Length(a)-1 do
      if not KeyList.Find(a[I], Index) then Print(a[I]);
  finally
    KeyList.Free;
  end;    end;