C++BuilderXE 如何让listView按文件名数字排序而非字母排序

int m_nDataColSort=0;

bool IsAsc=true;

void __fastcall TForm1::RzListView4Compare(TObject *Sender, TListItem *Item1, TListItem *Item2,
int Data, int &Compare)
{
if(m_nDataColSort==0)
{

//按列表第二列排序
//Compare=CompareText(Item1->SubItems->Strings[0] ,Item2->SubItems->Strings[0] );
//按列表第一列排序

Compare=CompareText(Item1->Caption ,Item2->Caption );
}
}

//导入文件夹

void __fastcall TForm1::BitBtn29Click(TObject *Sender)

{

AnsiString Dir = "";

AnsiString CGstr;

if (!FolderDialog1->Execute()) return;

Dir =FolderDialog1->Directory;

//

int Trnum=0;

TSearchRec sr;

int iAttributes=0x0000003F;

int Oldlist;

if(FindFirst(Dir+"\\*.*",faDirectory,sr) == 0)

{

Oldlist = RzListView4->Items->Count;

do

{

if( !sr.Name.Pos(".") ) //sr.Name!="." && sr.Name!=".."

{

TListItem *pItem=0;

pItem=RzListView4->Items->Add();

//列表第一列,取出文件夹名进行格式化成字母格式"000"

if( sr.Name.Length()==1)
pItem->Caption="00"+sr.Name;
else if( sr.Name.Length()==2)
pItem->Caption="0"+sr.Name;
else
pItem->Caption=sr.Name; //AnsiString().sprintf("%03d",Oldlist+1); // ;

pItem->SubItems->Add(Dir+"\\"+sr.Name);

//pItem->SubItems->Add("***");

// if(CheckBox26->Checked)

// pItem->SubItems->Add(RightStr(AnsiString(sr.Name),3));

// else

// pItem->SubItems->Add("***");

//

// Ttree->Add(Dir+"\\"+sr.Name);

//Trnum+=1;

Oldlist++;

}

} while(FindNext(sr) == 0);

FindClose(sr);

}

//文件夹名排序
m_nDataColSort=0;
IsAsc=false;
RzListView4->AlphaSort();

RzListView4->Column[0]->Caption="序号[ 共"+AnsiString(Oldlist)+" ]" ;

}

相关推荐
喝可乐的布偶猫10 分钟前
韩顺平之第九章综合练习-----------房屋出租管理系统
java·开发语言·ide·eclipse
Code季风17 分钟前
深入理解微服务中的服务注册与发现(Consul)
java·运维·微服务·zookeeper·架构·go·consul
光军oi21 分钟前
java微服务(Springboot篇)——————IDEA搭建第一个Springboot入门项目
java·spring boot·微服务
future14121 小时前
C#每日学习日记
java·学习·c#
一个混子程序员2 小时前
SpringBoot自定义Schedule注解
java
心之语歌2 小时前
Java高效压缩技巧:ZipOutputStream详解
java·后端
booooooty2 小时前
基于Spring AI Alibaba的多智能体RAG应用
java·人工智能·spring·多智能体·rag·spring ai·ai alibaba
猴哥源码2 小时前
基于Java+SpringBoot的健身房管理系统
java·spring boot
极光雨雨2 小时前
Spring Bean 控制销毁顺序的方法总结
java·spring
猴哥源码2 小时前
基于Java+SpringBoot的三国之家网站
java·spring boot