如何引用bool函数？

jimivan007 2003-01-20 04:16:47

我在__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)中加了

bool TForm1::deldir(char * dir_fullpath)
{
//删除该目录下所有文件
// 代码由devie(潇潇夜雨)提供
}

我在头文件加了
public:
bool deldir(char * dir_fullpath);

想实现按一下button1就清除c:\temp下的文件该怎么做？

...全文

482 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

HUANG_JH 2003-01-20

打赏
举报

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{

}
//--------------------------------------------------------
bool TForm1::deldir(char * dir_fullpath)
{
//删除该目录下所有文件
// 代码由devie(潇潇夜雨)提供
}

jimivan007 2003-01-20

打赏
举报

是否以下部分的位置放错了？我在加上TForm1 *deldir;也没用。

我在__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)中加了

bool TForm1::deldir(char * dir_fullpath)
{
//删除该目录下所有文件
// 代码由devie(潇潇夜雨)提供
}

HUANG_JH 2003-01-20

打赏
举报

void __fastcall TForm1::Button1Click(TObject *Sender)
{
bool btemp = deldir("c:\\temp");
}

jimivan007 2003-01-20

打赏
举报

to： songhtao(三十年孤独)

不行，运行时说没有deldir类

我不懂电脑 2003-01-20

打赏
举报

void __fastcall TForm1::Button1Click(TObject *Sender)
{
deldir("c:\\temp");
}

halibut 2003-01-20

打赏
举报

用函数:
DeleteFile(AnsiString filename);
DeleteFile(char * filename);

用一个FileListBox,指定FileListBox1->Directory = dir_fullpath;

int index;
for(index=0;index<FileListBox1->Items->Count;index++)
{
FileListBox1->ItemIndex = index;
if(DeleteFile(FileListBox1->FileName);
}