1如何判断一个文件夹是否为空；2如何在一个窗体上循环显示某个文件夹下的所有图片

判断文件夹是否为空，我用FileExists（“d:\\test\\*.*”）,但是不对
我有一个文件夹里面放的全是图片文件，在Form上放了一个TImage和一个TTimer组件，想让TImage循环显示这些图片，完成此功能还需要哪些组件，最好能给个简单的士例程序。分不多，请各位指点。

7 个解决方案

#1

引用楼主 yanziyi290 的回复:

判断文件夹是否为空，

IsEmptyDir

#2

引用楼主 yanziyi290 的回复:

我有一个文件夹里面放的全是图片文件，在Form上放了一个TImage和一个TTimer组件，想让TImage循环显示这些图片，完成此功能还需要哪些组件，最好能给个简单的士例程序。分不多，请各位指点。

在定时器里 调用Image1->Picture->LoadFromFile("C:\\1.jpg")
显示图片

#3

引用 2 楼 zhouzhangkui 的回复:

引用楼主 yanziyi290 的回复:
 我有一个文件夹里面放的全是图片文件，在Form上放了一个TImage和一个TTimer组件，想让TImage循环显示这些图片，完成此功能还需要哪些组件，最好能给个简单的士例程序。分不多，请各位指点。

 在定时器里 调用Image1->Picture->LoadFromFile("C:\\1.jpg")
 显示图片

这样不行，比如说文件夹里面有10张图片，LoadFromFile(“XXXX”)方法的参数“XXXX”应该是变化的，这样定时器每次调用它才能显示不同的图片啊

#4

引用 3 楼 yanziyi290 的回复:

引用 2 楼 zhouzhangkui 的回复:
引用楼主 yanziyi290 的回复:
我有一个文件夹里面放的全是图片文件，在Form上放了一个TImage和一个TTimer组件，想让TImage循环显示这些图片，完成此功能还需要哪些组件，最好能给个简单的士例程序。分不多，请各位指点。

在定时器里 调用Image1->Picture->LoadFromFile("C:\\1.jpg")
显示图片

这样不行，比如说文件夹里面有10张图片，LoadFromFile(“XXXX”)方法的参数“XXXX”应该是变化的，这样定时器每次调用它才能显示不同的图片啊

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  AnsiString   path   =   "D:\\3860\\*.*";
  TSearchRec   sr;
  FindFirst(path,   faAnyFile,   sr);
  while   (!FindNext(sr))
  {
          try
          {
            AnsiString ls_Fina = "D:\\3860\\"+sr.Name ;
            Memo1->Lines->Add(ls_Fina);
            Image1->Picture = NULL ;
            Image1->Picture->LoadFromFile(ls_Fina);
          }
          catch(...)
          {

          }
  }
  FindClose(sr);
}

#5

有权利的，把这贴子转到技术区去

#6

好，已转移到技术版块。

#7

该回复于2010-05-07 11:25:37被版主删除