delphi 统计一个文本的文字重复次数并且排序（高手题目）

来源：百度知道 编辑：UC知道 时间：2024/06/01 20:23:28
统计一个文本的文字重复次数
比如： 1，1，2，3，4，5，1，5，5，1，2，3，
结果：1，5，2，3，4
1出现4次 所以排第一
5出现3次 排第二
………
………
TheFiend 朋友的算法还差点点
如果2个数出现的重复数是一样多的话 那么就按数字的从大到小排列
如 1，1，2，3，4
结果返回的字符串 1，4，3，2

又是你...

function MySort(List: TStringList; Index1, Index2: Integer): Integer;

var

  I,J:Integer;

begin

  I:=Integer(List.Objects[Index1]);

  J:=Integer(List.Objects[Index2]);

  if i>j then

    Result:=-1

  else

  if i<j then

    Result:=1

  else

    Result:=0;

end;

procedure TForm1.btn1Click(Sender: TObject);

var

  slResult,slTmp:TStringList;

  I,Idx:Integer;

begin

  mmo1.Clear;

  slTmp:=TStringList.Create;

  slResult:=TStringList.Create;

  try

    //统计.

    //注意这个,如果是英文的逗号.

    slTmp.Delimiter:=',';

&nb