delphi编写能够识别出字符串中的数字段有多少个,每一个是那些