求教算法

Question

从文本框获得一组数字，如'2143*4556',*位置不一定，如何得到这组数字代表的范围呢？(即214304556-214394556), 求各位老大解惑！

Answer 1

s := edit1.Text;  //得到数字字符串
p := ('*', s);    //得到'*'的位置
S1 := Copy(s,1,p-1);   //得到'*'前面的字符串
s2 := copy(s,p+1, length(s));  //得到‘*'后面的字符串
LitterS := s1 + '0' + s2;     
BigS := s1 + '9' + s2;LitterVal := StrToInt(LitterS);
BigVal := StrToInt(BigS);