简单问题：CBC中的集合运算 ：包含关系该如何写？(20分)

在Delphi中用
if not (Key in ['0'..'9',#8]) then
begin
Key := 0;
end;


请转化？

集合求交集不为空但我忘记怎么表达了

用集合对象的Contains方法：
void __fastcall TForm1::Button3Click(TObject *Sender)
{
TMsgDlgButtons Btns;
MessageDlg("这是一个没有按钮的MessageDlg", mtInformation, Btns, 0);
if (!Btns.Contains(mbOK)){
Btns << mbOK;
MessageDlg("哈哈, 现在有按钮喽!", mtInformation, Btns, 0);
}
}
//---------------------------------------------------------------------------

if ((Key > '9') || (Key < '0'))
{
...
}