//---------------------------------------------------------------------------
/*
首先将一个列表框控件安放在Form上,并将其名称设为ListView1。
然后在其中添加若干项目作为试验对象。方法为:用鼠标右键单击控件,
在弹出的对话框中选择Columns Editor用来添加列和子列;
再选Items Editor用来添加项目(包含子列和主列上的内容)。
为了显示出子项目内容,需要在Object Inspector中修改ListView属性值,
将ViewStyle设置为vsReport。另外,还必须将SortType设置为None,
以使我们的排序程序起作用。这样,程序的外观已经符合需要,
下面应该增加排序功能的代码了。为此需要添加类的方法到源代码中。
*/
void __fastcall TFormVBS::listViewColumnClick(TObject *Sender, TListColumn *Column)
{
int i,m,n,j;
static bool od=true; /* od代表用户点击的次数,奇数时为true,偶数时为false。
注意此处od的存储类型设定为static,可以保证其数值的连续性。
用n记录用户点击的列号,m记录列表框中的总项目数。*/
od=!od; n=Column->Index;
m=listView->Items->Count; /* 在列表框中临时添加一个项目作为排序中交换用的临时空间 */
listView->Items->Add(); /* 当用户点击第一列列标头时,
排序按listView->Items->Item[i]->Caption进行,
与其它列不同,所以要单独进行排序。 */ if (n==)
{
for(i=;i < m-;i++)
{
for(j=i+;j< m;j++)
{
if(od)
{
if(listView->Items->Item[i]->Caption >
listView->Items->Item[j]->Caption)
{
listView->Items->Item[m]= listView->Items->Item[i];
listView->Items->Item[i]= listView->Items->Item[j];
listView->Items->Item[j]= listView->Items->Item[m];
}
}
else
{
if(listView->Items->Item[i]->Caption < listView->Items->Item[j]->Caption)
{
listView->Items->Item[m]= listView->Items->Item[i];
listView->Items->Item[i]= listView->Items->Item[j];
listView->Items->Item[j]= listView->Items->Item[m];
}
}
}
}
} listView->Items->Delete(m);
return;
/* 编译运行程序后,即会看到我们预期的结果。
另外,本程序是按照字符串方式进行排序的,如果需要按照数字或其它方式排序,
只需进行相应的类型转换即可。
理解本程序后,读者即掌握了对ListView控件编程的一条基本思路,
对今后使用BCB以及对Windows编程起到良好作用。 */
}
//---------------------------------------------------------------------------

c++ builder TListView控件按字符串排序(根据网上代码亲测ok)的更多相关文章

  1. Delphi的TListView控件拖放选定行操作

    http://www.tansoo.cn/?p=401 Delphi的TListView控件拖放选定行操作的例子,效果图如下:TListView控件拖动选定行到指定位置 具体实现步骤: 一.新建一个D ...

  2. Victor 串口 VCL 控件 - 简单实用, 功能强大的 C++ Builder 串口控件!

    源:Victor 串口 VCL 控件 - 简单实用, 功能强大的 C++ Builder 串口控件! 2014年02月06日发布控件的重要更新版本: Victor 串口控件 1.5.0.2 版本 (包 ...

  3. C# WinForm中 让控件全屏显示的实现代码

    夏荣全 ( lyout(at)163.com )原文 C#中让控件全屏显示的实现代码(WinForm) 有时候需要让窗口中某一块的内容全屏显示,比如视频播放.地图等等.经过摸索,暂时发现两种可行方法, ...

  4. 圆环,扇形控件基本算法一种实现 - 代码库 - CocoaChina_让移动开发更简单

    圆环,扇形控件基本算法一种实现 - 代码库 - CocoaChina_让移动开发更简单   ////  CircleCore.h//  Quartz////  Created by 仙人掌 on 12 ...

  5. Duilib的控件拖拽排序,支持跨容器拖拽(网易云信版本)

    完整代码见:https://github.com/netease-im/NIM_Duilib_Framework/pull/151 核心代码(思路): appitem.h #pragma once # ...

  6. 最佳实践扩展Windows窗体DataGridView控件 .net 4.5 附示例代码

    Windows窗体DataGridView控件的性能调优.net 4.5   在处理大量数据时, DataGridView 控制可以消耗大量的内存开销,除非你仔细地使用它. 在客户有限的内存,你可以避 ...

  7. .net 用户控件ascx.cs注册js脚本代码无效果

    在.net web项目中碰到一个比较奇怪的问题,网上没找到解决方案,先自己mark一下 问题描述: 添加一个用户控件ascx,在后端.cs添加js注册脚本,执行后没有弹出框 注册脚本为: this.P ...

  8. [iOS基础控件 - 6.7.1] 微博展示 代码

      Controller: // // ViewController.m // Weibo // // Created by hellovoidworld on 14/12/4. // Copyrig ...

  9. [iOS基础控件 - 6.7] 微博展示 使用代码自定义TableCell(动态尺寸)

    A.需求 1.类似于微博内容的展示 2.头像 3.名字 4.会员标志 5.内容 6.分割线 7.配图(可选,可有可无)   code source: https://github.com/hellov ...

随机推荐

  1. codeforces 323A. Black-and-White Cube 构造

    输入n 1 <= n <= 100 有一个n * n * n 的立方体,由n ^ 3 个1 * 1 * 1 的单位立方体构成 要用white 和 black 2种颜色来染这n ^ 3个立方 ...

  2. dede图片横向滚动

    <div id=demo style="overflow:hidden; width:960px;" > <table border=0 align=" ...

  3. Mac下配置JAVA_HOME

    http://blog.csdn.net/shallowgrave/article/details/39367119 闲来无事,装个Hbase玩玩,突然发现Mac下默认安装的JDK7,没有配置JAVA ...

  4. mysql索引之四(索引使用注意规则:索引失效--存在索引但不使用索引)

    但是如果是同样的sql如果在之前能够使用到索引,那么现在使用不到索引,以下几种主要情况: 1. 随着表的增长,where条件出来的数据太多,大于15%,使得索引失效(会导致CBO计算走索引花费大于走全 ...

  5. 服务器网页GZIP压缩怎么配置

    服务器网页GZIP压缩怎么配置     服务器网页GZIP压缩怎么配置,GZIP压缩对网页压缩来说最好不过了,下面是IIS下Gzip配置详细操作步骤:     简单来说,IIS6集成了Gzip,只不过 ...

  6. jquery mobile导致无法修改textarea的高度

    在引用了jquery mobile的js库和样式的页面中,添加textarea标签,会导致无法调整其height属性,不管是用CSS还是JS,最终都会被替换成height=52px 解决办法:在页面中 ...

  7. Delphi调用外部程序函数:WinExec() 和ShellExecute详解

    1,WinExec():   WinExec主要运行EXE文件,不能运行其他类型的文件.不用引用特别单元.   原型:UINT WinExec(exePath,ShowCmd)   示例,我想要用记事 ...

  8. VisualVM 的 OQL 的一些例子

    Visual VM的OQL语言是对HeapDump进行查询,类似于SQL的查询语言,它的基本语法如下: select <JavaScript expression to select> [ ...

  9. sql server 2008 r2 中的oracle发布使用笔记

    sql server 2008 r2 中的oracle发布功能,能够将oracle数据库作为发布服务器,将oracle中的数据自动同步到sql server 数据库中,在新建oracle发布前确保sq ...

  10. SELinux配置不当导致vsftpd系统用户不能登陆

    1.测试是否是SELinux配置不当导致的: setenforce 0 再次登陆ftp,正常,说明是SELinux配置不当导致.还原配置 setenforce 1 2.查看配置: getsebool ...