求教算法 从文本框获得一组数字,如'2143*4556',*位置不一定,如何得到这组数字代表的范围呢?(即214304556-214394556), 求各位老大解惑! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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); 如何把我进销存的数据导入用友的财务软件中? 如何检测使用ADO连接的ACCESS中的数据集是否存在? 怎么样才能把DBGrid中的数据转存为Excel的格式啊? 开心+郁闷 散分 用什么函数能获得指定目录下的目录列表?在先等。 进门拿分 怎么可以更快速的学会DELPHI,只学报表部分也行啊!?!帮帮忙。 如何将Word与Excel中的文字属性提取出来? 一个简单的菜单问题? 为什么这样赋值不对? 如何确定一个进程的内存地址 怎样能过HTTP获得将远程的文件存到本机上来?
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);