var SqlStr string;
begin
  sqlstr := 'select * from 計費數据 where 主叫 in (''' + cc + ''')';
  query1.sql.add(sqlstr);
end;無法試驗,主要注意調整一下 單引號的位置
have a try三少 :o)