问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

delphi listbox 排序

发布网友 发布时间:2022-05-17 05:02

我来回答

2个回答

热心网友 时间:2022-05-17 06:31

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

var

  S1, S2: string;

  N1, N2: Integer;

begin

  S1 := List[index1];

  S2 := List[index2];

  Result := 0;

  if S1 = S2 then

    Exit;

  N1 := Pos('-', S1); //---

  if N1 = 0 then

  begin

    Result := -1;

    Exit;

  end;

  N2 := Pos('-', S2); //---

  if N2 = 0 then

  begin

    Result := 1;

    Exit;

  end;

  N1 := StrToIntDef(Copy(S1, 1, N1 - 1), 0);

  N2 := StrToIntDef(Copy(S2, 1, N2 - 1), 0);

  if N1 = N2 then

    Result := 0

  else

  if N1 > N2 then

    Result := 1

  else

  if N1 < N2 then

    Result := -1;

end;

procere TForm1.Button1Click(Sender: TObject);

var

  sl: TStringList;

begin

  sl := TStringList.Create;

  try

    sl.Assign(lst1.Items);

    sl.CustomSort(MyCustomCompare);

    lst2.Clear;

    lst2.Items.AddStrings(sl);

  finally

    sl.Free;

  end; // try

end;

来个效果图:

热心网友 时间:2022-05-17 07:49

不用自己写代码排序,直接用它的Sorted属性就行了,比如:
lst1.Sorted:=True;//排序
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
你能用一句话表达这个画面吗 专科学高铁乘务专业能找到工作吗 广西理工职业技术学院怎样啊?? 月亮星座怎么配对,月亮星座配对查询爱情 广西理工职业技术学院到底好不好的 最甜蜜的月亮星座组合,最冷血的月亮星座 包子怎么做才松软 包子如何做才松软 包子店的包子发酵怎么这么松软 专做俄罗斯业务的货代公司 大理石地板怎么拖干净又亮妙招 怎样在同一部手机上用两个微信!怎么才能下载另一个! 怎样在同一部手机上用两个微信!怎么才能下载另一个! 怎样在同一部手机上用两个微信!怎么才能下载另一个! 一个手机可以同时登录2个吗?- 问一问 ios10.0版本有什么小技巧 一个手机可以同时登录2个吗?- 问一问 一个手机可以同时登录2个吗?- 问一问 ios15.31设置技巧 求昆明丽江大理自由行旅游精品攻略,要详细,谢谢,悬赏大大的,不差事。 大理三日游,从昆明坐火车去大理,求各位大神给旅游攻略,学生党,住宿安全性有保障,也要舒适 如何在手机上同时登录两个 如何在手机上同时登录两个 如何在手机上同时登录两个 一台手机如何登录两个 一台手机如何登录两个 一台手机如何登录两个 蒸汽价格上升要节约通知怎样写 调整分录的目的 宫缩是每一个孕妇在临产时都要经历的,是什么感觉? 中级会计实务中调整分录和更正分录的区别是啥 咬肌产生的原因? 咬肌怎么形成 咬肌是怎么形成的,怎么消除,不想打针手术 请问咬肌是怎样形成的呢? 怎样能瘦呢 怎样瘦咬肌非手术 我的咬肌怎么时大时小 咬肌怎么消 怎么把小冰加进群聊? 微软小冰怎么进微信群 求助一篇论文,我是一名实习*,老师要开座谈会,留了作业“晒晒你... 护士实习生,要出科了,真的好不想出科,不舍得这个科室和老师? 深圳宝安机场到成都机场飞机票价多少? 护理实习生在科室该怎么与科室内的人交往 现在从深圳宝安机场出发到成都会被隔离吗? 从深圳机场到成都机场要多少钱? 深圳机场到成都怎么做飞机?拜托了各位 谢谢 深圳至成都坐飞机要多长时间到达 从深圳宝安机场到成都双流机场机票价格是多少? 从深圳宝安机场到成都双流机场要多长时间? 成都机场到深圳机场多少公里?