分解字符串为a1,b1,c1. 然后加写sql。
Params.CreateParam(ftString, field', ptInput);CommandText :='select * from tablename where field in( :field)'Params.ParamByname(field).AsString := str
