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)+" ]" ;

}

相关推荐
JavaGuide41 分钟前
JDK 25(长期支持版) 发布,新特性解读!
java·后端
用户37215742613542 分钟前
Java 轻松批量替换 Word 文档文字内容
java
白鲸开源43 分钟前
教你数分钟内创建并运行一个 DolphinScheduler Workflow!
java
CoovallyAIHub1 小时前
中科大DSAI Lab团队多篇论文入选ICCV 2025,推动三维视觉与泛化感知技术突破
深度学习·算法·计算机视觉
沐怡旸1 小时前
【底层机制】std::shared_ptr解决的痛点?是什么?如何实现?如何正确用?
c++·面试
Java中文社群1 小时前
有点意思!Java8后最有用新特性排行榜!
java·后端·面试
代码匠心2 小时前
从零开始学Flink:数据源
java·大数据·后端·flink
间彧2 小时前
Spring Boot项目中如何自定义线程池
java
间彧2 小时前
Java线程池详解与实战指南
java
用户298698530142 小时前
Java 使用 Spire.PDF 将PDF文档转换为Word格式
java·后端