【算法】
关注
分享
扫一扫
文章平均质量分 69
sun_software
这个作者很懒，什么都没留下…
展开
-
根据输入数字串，返回连续的数字组合，比如输入“1,2,3,5,6,9”返回“1-3;5-6;9” Delphi6实现
最近项目中需要如题这样一个方法，在网上搜了下没发现类似的，索性写了一个，还不是很完善。function SerialStr(Astr: string): string;var v_TmpList: TStringList; v_Index: Integer; v_ResultList: TStringList;begin if Trim(Astr) = EmptyStr t原创 2013-06-01 14:08:34 · 1467 阅读 · 2 评论 -
根据输入数字串，返回连续的数字组合，比如输入“1,2,3,5,6,9”返回“1-3;5-6;9” Delphi6实现（方法2）
这个方法跟上一个方法相比会消耗一些效率，还需要起始数和结束数，但不受其他字符、重复、顺序干扰。具体如下：{------------------------------------------------------------------------------- 过程名: TSerialNumberDemo.OutputSearialNum 方法二 作者: Admi原创 2013-06-04 10:16:10 · 1174 阅读 · 0 评论