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)


相关推荐

  • MFC进度条同步问题

    MFC进度条同步问题读者朋友们可能天天使用Visual C++这个强大的工具来开发应用程序,不知道注意到没有,Visual C++每次装载一个项目的时候,为了使项目加载过程不至于太单调,会在状态栏的左半部分会出现一个装载进度条,用来即时显示Visual C++装载项目的进度,当项目装载完毕后,进度条隐藏。那么这个功能是如何实现的呢?为了说明该功能的实现原理,本例提供了一个范例程序prgsbar,它演示了在编辑视图里显

  • 主流大数据存储解决方案评析

    主流大数据存储解决方案评析EMC Isilon:横向扩展 性能突出大数据存储不是一类单独的产品,它有很多实现方式。EMC Isilon存储事业部总经理杨兰江概括说,大数据存储应该具有以下一些特性:海量数据存储能力,可轻松管理PB级乃至数十PB的存储容量;具有全局命名空间,所有应用可以看到统一的文件系统视图;支持标准接口,应用无需修改可直接运行,并提供API接口进行面向对象的管理;读写性能优异,聚合带宽高达数GB乃至数十GB…

  • declare-styleable使用

    declare-styleable使用declare-styleable是给自定义控件添加自定义属性用的attr中在attrs.xml中设置declare-styleable,name是PersonAttr<?xmlversion=”1.0″encoding=”utf-8″?><resources><declare-styleablename=”PersonAttr”><attrname=”name”format=”reference”/&gt

  • http协议的get和post方法的区别

    http协议的get和post方法的区别http协议的get和post方法的区别

  • java mina框架实例_MINA框架简介和一个简单的例子

    基于MINA框架快速开发网络应用程序1.MINA框架简介MINA(MultipurposeInfrastructureforNetworkApplications)是用于开发高性能和高可用性的网络应用程序的基础框架。通过使用MINA框架可以可以省下处理底层I/O和线程并发等复杂工作,开发人员能够把更多的精力投入到业务设计和开发当中。MINA框架的应用比较广泛,应用的开源项目有Apache…

  • 笛卡尔心形函数图像_笛卡尔心形曲线

    笛卡尔心形函数图像_笛卡尔心形曲线js绘制canvas图形varcr=document.getElementById(“cardioid”);varW=cr.width/2,H=cr.height/3,R=150;varc=cr.getContext(“2d”);varG=360,g=0,T=Math.PI*2,t=T/G;c.save();c.translate(W,…

    2022年10月17日

发表回复

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

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