delphi数组排序_sql排序函数

delphi数组排序_sql排序函数var  m_bSort:  boolean=false;  //控制正反排序的变量     //ListView排序的回调函数,默认的是快速排序法,也可以自己在这里做算法  function  CustomSortProc(Item1,  Item2:  TListItem;  ParamSort:  integer):  integer;  stdcall

大家好,又见面了,我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

var   m_bSort:   boolean=false;   //控制正反排序的变量  
   
//ListView排序的回调函数,默认的是快速排序法,也可以自己在这里做算法  
function   CustomSortProc(Item1,   Item2:   TListItem;   ParamSort:   integer):   integer;   stdcall;  
var   txt1,txt2   :   string;  
begin  
      if   ParamSort   <>   0   then   begin   
         try
              txt1   :=   Item1.SubItems.Strings[ParamSort-1];
              txt2   :=   Item2.SubItems.Strings[ParamSort-1];
              if   m_bSort   then   begin  
                    Result   :=   CompareText(txt1,txt2);  
              end   else   begin  
                    Result   :=   -CompareText(txt1,txt2);  
              end;
      except
      end;

       end   else   begin  
              if   m_bSort   then   begin  
                    Result   :=   CompareText(Item1.Caption,Item2.Caption);  
              end   else   begin  
                    Result   :=   -CompareText(Item1.Caption,Item2.Caption);  
              end;  
      end;  
end;  
   
procedure   TForm1.ListView1ColumnClick(Sender:   TObject;  
      Column:   TListColumn);  
begin  
      ListView1.CustomSort(@CustomSortProc,   Column.Index);  
      m_bSort   :=   not   m_bSort;  
end;

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/186125.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • ThinkPHP 3.2.x多个模块使用公共Layout布局文件

    ThinkPHP 3.2.x多个模块使用公共Layout布局文件

  • 红黑树与平衡二叉树_理解红黑树很难?不存在的,史上最详细的红黑树图解

    HashMap的实现原理可以说是面试中必问的一道面试题了,它可以考察一个程序员的数据结构功底和对技术的钻研深度。Java7中HashMap的实现就是一个数组,然后数组中的每一个元素又是一个链表,这个链表的存在是为了解决哈希冲突导致的问题,就是一个元素经过哈希计算后得到元素的存储位置,但是这个位置已经有其它元素占领,也就是占领元素和新插入元素都在这个数组中的同一个位置,此时就用链表进行维护…

  • 初学java,遇到的陌生词语(1)

    初学java,遇到的陌生词语(1)

  • android100 自定义内容提供者

    android100 自定义内容提供者#ContentProvider,就是来操作数据的,增删改查,*四大组件之一*应用的数据库是不允许其他应用访问的*内容提供者的作用就是让别的应用访问到你的数据库*内容提供者的作用:把私有数据暴

  • pycharm的_pycharm conda

    pycharm的_pycharm conda不知道朋友们用过maven没有,使用JAVA编程的人应该有人用过这个有趣的东西,JAVA导包是容易的,然而,懒是没有极限了,所以maven出来了,一个丰满的开发包仓库,不需要你再去哪儿找找找。但是这又算得了什么,我们伟大的Python怎么可能弱,pip包安装管理器就是这样的存在,他使得安装pymodel变得和在linux下安装软件一样容易,只要简单的一句pipinstallsimplename

  • ASMX

    ASMX当Microsoft®.NETFramework第一次发布时,它引入了一个有突破性的Web服务框架,那就是ASMX。设计ASMX的目的在于尽可能地简化Web服务的开发过程,这样即使您不是XML专家,也可以创建并运行Web服务。ASMX是通过隐藏大多数基础XML和Web服务细节来实现这一点的。与强制开发人员直接处理SOAP信封和Web服务描述语言(W

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号