字符串排序等算法

15,1,5,10,13,14,50,4,55,8,67,68,69,3,12,57,70,74 字符串，排序后再把连续数字用-连接在一起，结果为：1,3-5,8,10,12-15,50,55,57,67-70,74

1. function   NumberSort(List:   TStringList;   Index1,   Index2:   Integer):   Integer;
2. var
3.     Value1,Value2:Integer;
4. begin
5.     Value1:=StrToInt(List[Index1]);
6.     Value2:=StrToInt(List[Index2]);
7.     if   Value1then
8.         Result:=-1
9.     else   if   Value1>Value2   then
10.         Result:=1
11.     else
12.         Result:=0;
13. end;
15. procedure TForm1.btn3Click(Sender: TObject);
16. var
17.     strTemp:string;
18.     strs:TStringList;
19.     i,j:integer;
20. begin
21.     strTemp:='15,1,5,10,13,14,50,4,55,8,67,68,69,3,12,57,70,74';
22.     strs:=TStringList.Create;
23.     strs.Delimiter:=',';
24.     strs.DelimitedText:=strTemp;
25.     strs.CustomSort(NumberSort);
27.     i:=1;
28.     strTemp:=strs[0];
29.     while true do
30.     begin
31.         if i>=strs.Count then
32.             break;
33.         if StrToInt(strs[i])-StrToInt(strs[i-1])=1 then
34.         begin
35.             for j:=i to strs.Count-2 do
36.                 if StrToInt(strs[j+1])-StrToInt(strs[j])=1 then
37.                     continue
38.                 else
39.                     break;
40.             i:=j;
41.             strTemp:=strTemp+'-'+strs[i];
42.         end else
43.             strTemp:=strTemp+','+strs[i];
45.         inc(i);
46.     end;
47.     Memo1.Lines.Text:=strTemp;
48.     strs.Free;
49. end;

转载于:https://www.cnblogs.com/zhaoshujie/archive/2008/09/25/9594844.html