
void __fastcall TForm1::BitBtn8Click(TObject *Sender)
{
OpenDialog1->Options<<ofAllowMultiSelect<<ofFileMustExist;//允许选择多个文件
OpenDialog1->Title="请选择导入的文件!";
OpenDialog1->Filter="Excel Files (*.xls;*.xlsx)|*.xls;*.xlsx|All Files (*.*)|*.*";
//设置文件过滤
OpenDialog1->DefaultExt="xls";
//设置缺省扩展名
//BitBtn1图片要在上方,得设置layout为blglyphTop
//OpenDialog1->ofAllowMultiSelect=true!
//
int i,num,Lnum;
if(OpenDialog1->Execute())
{
//++++++++++++++++++++++++++++++++++++++++++++
//计算时间
clock_t start,end,dtStart;
start=clock();
//
RzProgressBar1->Percent=0;
//++++++++++++++++++++++++++++++++++++++++++++
num=OpenDialog1->Files->Count;
Lnum=ListView1->Items->Count;
//为空退出
if (num==0)
return;
//
ListView1->Items->BeginUpdate();
TListItem *pItem=0;
for(i=0;i<num;i++)
{
pItem=ListView1->Items->Add();
pItem->Caption=Lnum+i+1;
pItem->SubItems->Add(ExtractFileName(OpenDialog1->Files->Strings[i]));
pItem->SubItems->Add("***"); //注数
pItem->SubItems->Add(OpenDialog1->Files->Strings[i]); //注数
pItem->SubItems->Add("*");
//++++++++++++++++++++++++++++++++++++++++++++
RzProgressBar1->Percent=100*i/num;
//++++++++++++++++++++++++++++++++++++++++++++
//pItem->SubItems->Strings[1]="不详";
// ListView1->Items->Item[i]->ImageIndex=0;
}
ListView1->Items->EndUpdate();
Lnum=ListView1->Items->Count;
//RzGroupBox1->ActivePageIndex=0;
//Label4->Caption="预导入大底:"+String(Lnum)+" 个";
//++++++++++++++++++++++++++++++++++++++++++++
RzProgressBar1->Percent=100;
//++++++++++++++++++++++++++++++++++++++++++++
// +++++++++++++++++++++++++++++++++++++++++++++++
//操作完成计时
end=clock();
dtStart=end-start;
float dSec=float(dtStart)/1000;
RzStatusPane1->Caption ="预导入大底:"+String(Lnum)+" 个";
ListView1->Columns->Items[0]->Caption="id ["+AnsiString(Lnum)+"]";
RzStatusPane2->Caption =
"耗时:"+FloatToStrF(dSec,ffFixed,4,3)+" 秒 ";
// to
}
}