1 //---------------------------------------------------------------------------
2 /*
3 首先将一个列表框控件安放在Form上,并将其名称设为ListView1。
4 然后在其中添加若干项目作为试验对象。方法为:用鼠标右键单击控件,
5 在弹出的对话框中选择Columns Editor用来添加列和子列;
6 再选Items Editor用来添加项目(包含子列和主列上的内容)。
7 为了显示出子项目内容,需要在Object Inspector中修改ListView属性值,
8 将ViewStyle设置为vsReport。另外,还必须将SortType设置为None,
9 以使我们的排序程序起作用。这样,程序的外观已经符合需要,
10 下面应该增加排序功能的代码了。为此需要添加类的方法到源代码中。
11 */
12 void __fastcall TFormVBS::listViewColumnClick(TObject *Sender, TListColumn *Column)
13 {
14 int i,m,n,j;
15 static bool od=true;
16
17 /* od代表用户点击的次数,奇数时为true,偶数时为false。
18 注意此处od的存储类型设定为static,可以保证其数值的连续性。
19 用n记录用户点击的列号,m记录列表框中的总项目数。*/
20 od=!od;
21
22 n=Column->Index;
23 m=listView->Items->Count;
24
25 /* 在列表框中临时添加一个项目作为排序中交换用的临时空间 */
26 listView->Items->Add();
27
28 /* 当用户点击第一列列标头时,
29 排序按listView->Items->Item[i]->Caption进行,
30 与其它列不同,所以要单独进行排序。 */
31
32 if (n==0)
33 {
34 for(i=0;i < m-1;i++)
35 {
36 for(j=i+1;j< m;j++)
37 {
38 if(od)
39 {
40 if(listView->Items->Item[i]->Caption >
41 listView->Items->Item[j]->Caption)
42 {
43 listView->Items->Item[m]= listView->Items->Item[i];
44 listView->Items->Item[i]= listView->Items->Item[j];
45 listView->Items->Item[j]= listView->Items->Item[m];
46 }
47 }
48 else
49 {
50 if(listView->Items->Item[i]->Caption < listView->Items->Item[j]->Caption)
51 {
52 listView->Items->Item[m]= listView->Items->Item[i];
53 listView->Items->Item[i]= listView->Items->Item[j];
54 listView->Items->Item[j]= listView->Items->Item[m];
55 }
56 }
57 }
58 }
59 }
60
61 listView->Items->Delete(m);
62 return;
63 /* 编译运行程序后,即会看到我们预期的结果。
64 另外,本程序是按照字符串方式进行排序的,如果需要按照数字或其它方式排序,
65 只需进行相应的类型转换即可。
66 理解本程序后,读者即掌握了对ListView控件编程的一条基本思路,
67 对今后使用BCB以及对Windows编程起到良好作用。 */
68 }
69 //---------------------------------------------------------------------------