如果用循环查找倒是可以试试。
Table.First;
while not Table.eof do
begin
Str:=Table.FieldByName('字段').AsString;
将Str分解求每一个Str中的所有数字
S:=GetIntFromStr;//从Str中得到单个数字函数;
然后用一个List:TStringList;
If List.IndexOf(Str1)<0 then
List.Append(S);
//重复上面的过程,直到把一个Str分解完为止。
Table.Next;
end;