CbuilderXE二种载入文件到listview的方法及删除整理.doc

C++ builder XT：二种载入文件 的方法
调试环境：win7, C++ builder XE , TMS组件调试通过。
® C++ builderXE二种册文件的方法
乏迭择文件一|匚.'.'.'』的全unt；
//为空退出
if (num==O)
return;
//
ListView1->ltems->BeginUpdate();
TListltem 米pltem=O;
for( int i=O;i<num；i++)
{
pltem = ListViewl - > Items- >Add ();
pltem->Caption=Lnum+i + 1;
pltem->Subltems->Add ( ExtractFileName (OpenDialog1->Files->Strings[i]));
pltem->Subltems->Add (”米米*" ); //注数
pltem->Subltems->Add (OpenDialog1->Files->Strings[i]); //注数
pltem->Subltems->Add ( ;
}
ListView1->ltems->EndUpdate();
Lnum=ListViewl-> Items->Count;
ListViewl->Columns->ltems[0]->Caption="id ["+AnsiString ( Lnum)
//
〃用选取文件夹来载入所有文件
//
void _fastcall TForml：：BitBtn2Click(TObject *Sender)
{
AnsiString Dir="
//Dir里保存着所选的文件夹绝对路径
if ( FolderDialog1->Execute ())
{
Dir = FolderDialog 1 - > Directory；
}
//
if ( ( ) ==0)
return;
int num,Lnum；
Lnum=ListView1-> Items-> Count；
TListltem *pltem=O；
TSearchRec sr；
if ( FindFirst (Dir+"\\* .txt",faAnyFile,sr) == 0)
{ ListView1->Items->BeginUpdate();
TStringList *Flist =new TStringList;
Flist->Clear ();
do
{
pltem = ListView1-> Items->Add ();
pltem->Caption = Lnum + 1；
pltem->Subltems->Add ()；
pltem->Subltems->Add ("***")； //注数
pltem->Subltems->Add ( Dir+"\\"+); //注数
Lnum + + ；
} while ( FindNext( sr) == 0);
FindClose (sr)；
ListView1->ltems->EndUpdate();
}
Lnum = L