林大中被杀视频:字符串排序等算法

来源：百度文库 编辑：中财网 时间：2024/04/29 07:58:26

字符串排序等算法

分类： Delphi 2008-09-25 14:13 192人阅读 评论(0) 收藏 举报

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   Value1        Result:=-1
  8.     else   if   Value1>Value2   then
  9.         Result:=1
  10.     else
  11.         Result:=0;
  12. end;
  14. procedure TForm1.btn3Click(Sender: TObject);
  15. var
  16.     strTemp:string;
  17.     strs:TStringList;
  18.     i,j:integer;
  19. begin
  20.     strTemp:='15,1,5,10,13,14,50,4,55,8,67,68,69,3,12,57,70,74';
  21.     strs:=TStringList.Create;
  22.     strs.Delimiter:=',';
  23.     strs.DelimitedText:=strTemp;
  24.     strs.CustomSort(NumberSort);
  26.     i:=1;
  27.     strTemp:=strs[0];
  28.     while true do
  29.     begin
  30.         if i>=strs.Count then
  31.             break;
  32.         if StrToInt(strs[i])-StrToInt(strs[i-1])=1 then
  33.         begin
  34.             for j:=i to strs.Count-2 do
  35.                 if StrToInt(strs[j+1])-StrToInt(strs[j])=1 then
  36.                     continue
  37.                 else
  38.                     break;
  39.             i:=j;
  40.             strTemp:=strTemp+'-'+strs[i];
  41.         end else
  42.             strTemp:=strTemp+','+strs[i];
  44.         inc(i);
  45.     end;
  46.     Memo1.Lines.Text:=strTemp;
  47.     strs.Free;
  48. end;
谁会对C++中的排序算法,比如冒泡排序,插入排序,选择排序,快速排序等的MPI并行实现代码? 字符串匹配算法 结构体排序算法 asp排序算法 什么是起泡排序算法?? 急求一排序算法 合并排序算法 vb选择排序算法 内部排序算法比较 内部排序算法比较 整数排序算法的问题？ 堆排序的具体算法 快速排序的循环算法 求几种排序法的算法 全排序的算法(PASCAL) 加密解密字符串的算法原理 java应用bm算法的字符串匹配 谁知道求字符串反序的算法？ 字符串匹配中的WM算法的流程图 请教算法高手：还是关于排序！ pascal 排序算法的一道选择题。Help！ 给出一种拓扑排序的改进算法 关于数据库排序输出的算法? 用C语言写一个排序算法。