ディスク及びディレクトリ サポート ルーチン

void __fastcall TForm1::Button1Click(TObject *Sender)
{
	TStringDynArray list;
	TSearchOption searchOption;

	/* Select the search option */
	if (cbDoRecursive->Checked)
		searchOption = TSearchOption::soAllDirectories;
	else
		searchOption = TSearchOption::soTopDirectoryOnly;

	try
	{
		/* For all entries use GetFileSystemEntries method */
		if (cbIncludeDirectories->Checked && cbIncludeFiles->Checked)
		list = TDirectory::GetFileSystemEntries(edtPath->Text, searchOption, NULL);

		/* For directories use GetDirectories method */
		if (cbIncludeDirectories->Checked && !cbIncludeFiles->Checked)
		list = TDirectory::GetDirectories(edtPath->Text, edtFileMask->Text, searchOption);

		/* For files use GetFiles method */
		if (!cbIncludeDirectories->Checked && cbIncludeFiles->Checked)
		list = TDirectory::GetFiles(edtPath->Text, edtFileMask->Text, searchOption);
	}
	catch (...)
	{
		/* Catch the possible exceptions */
		MessageDlg("Incorrect path or search mask", mtError, TMsgDlgButtons() << mbOK, 0);
		return;
	}

	/* Populate the memo with the results */
	Memo1->Clear();

	for (int i = 0; i < list.Length; i++)
		Memo1->Lines->Add(list[i]);
}

// ----------------------------------------------------------------------------
/**
 * @brief		ファイルの検索
 *
 * @param[in,out]	TStrings*	FileList : 検索するフォルダのリスト
 * @param[in,out]	TStrings*	ImgFiles : 検索したファイルを格納するストリングリスト
 *
 * @return		なし (none)
 */
// ----------------------------------------------------------------------------
void __fastcall TDesktopWindow::SearchFile(TStrings *FileList, TStrings *ImgFiles)
{
	int formatno	= 9;
	String path;
	String SearchPattern;
	TSearchOption searchOption = TSearchOption::soAllDirectories;	// soTopDirectoryOnly
			// soTopDirectoryOnly	最上位のファイルまたはディレクトリのみスキャンします。 
			// soAllDirectories		最上位のディレクトリまたはファイルを起点として、すべてのディレクトリやファイルを再帰的にスキャンします。
	
	for(int i=0;i<FileList->Count;i++)
	{
		for(int j=0;j<formatno;j++)
		{
			path	= FileList->Strings[i];
			// if(*fname.LastChar() != L'\\') { fname += "\\"; }

			switch(j)
			{
				case 0: SearchPattern = "*.jp*";  break;
				case 1: SearchPattern = "*.bmp";  break;
				case 2: SearchPattern = "*.dib";  break;
				case 3: SearchPattern = "*.gif";  break;	// strcat(fName, "*.pcd"); break;
				case 4: SearchPattern = "*.png";  break;
				case 5: SearchPattern = "*.webp"; break;
				case 6: SearchPattern = "*.ico*"; break;
				case 7: SearchPattern = "*.tif*"; break;
				case 8: SearchPattern = "*.heic"; break;

				default: break;
			}
			
			TStringDynArray files = TDirectory::GetFiles(path, SearchPattern, searchOption);
			for (int i = 0; i < files.Length; ++i)
			{
				ImgFiles->Add(files[i]);
			}
		}
	}
}

#include <System.hpp>
#include <System.IOUtils.hpp>
#include <iostream>
 
int main()
{
  String ext(".cpp");                   
  TStringDynArray files = TDirectory::GetFiles(TDirectory::GetCurrentDirectory(),
                          [ext](const String Path, const System::Sysutils::TSearchRec &SearchRec) -> bool
                          {
                            return ExtractFileExt(SearchRec.Name) == ext;
                          });
  std::cout << "Found " << files.Length 
            << " files with ext: '" << AnsiString(ext).c_str() << "'\n";
  for (int i=0; i<files.Length; ++i)
    std::cout << AnsiString(files[i]).c_str() << std::endl;
}

void __fastcall TDesktopWindow::SearchFile(TStrings *FileList, TStrings *ImgFiles)
{
	int formatno	= 9;
	String path;
	String SearchPattern	= L"*";
	TSearchOption searchOption = TSearchOption::soAllDirectories;	// soTopDirectoryOnly
			// soTopDirectoryOnly	最上位のファイルまたはディレクトリのみスキャンします。 
			// soAllDirectories		最上位のディレクトリまたはファイルを起点として、すべてのディレクトリやファイルを再帰的にスキャンします。
	
	for(int i=0;i<FileList->Count;i++)
	{
		path	= FileList->Strings[i];

		TStringDynArray files = TDirectory::GetFiles(path, SearchPattern, searchOption,
			[path](const String path, const System::Sysutils::TSearchRec &SearchRec) -> bool
            {
				// return ExtractFileExt(SearchRec.Name) == path;

				bool ret = false;
				String FileExt	= TPath::GetExtension(SearchRec.Name);	// String FileExt	= ExtractFileExt(FileName);
				FileExt			= UpperCase(FileExt);

				if( (FileExt.Compare(".BMP") == 0) || (FileExt.Compare(".DIB") == 0) )
				{
					ret = true;

				} else if(FileExt.Compare(_TEXT(".GIF")) == 0) {
					ret = true;

				} else if(FileExt.Compare(_TEXT(".PNG")) == 0) {
					ret = true;

				} else if( FileExt.Pos(L".JP") != 0) {
					ret = true;

				} else if(FileExt.Compare(_TEXT(".WEBP")) == 0) {
					ret = true;

				} else if(FileExt.Compare(_TEXT(".ICO")) == 0) {
					ret = true;

				} else if( FileExt.Pos(L".TIF") != 0) {
					ret = true;


				} else if( FileExt.CompareIC(L".HEIC") == 0) {		// 2024/02/24
					ret = true;

				} else {
					ret = false;
				}

				return ret;

            });

		// TStringDynArray files = TDirectory::GetFiles(path, searchOption, FilterPredicate);
		for (int i = 0; i < files.Length; ++i)
		{
			ImgFiles->Add(files[i]);
		}
	}
}

	String path	= TPath::GetDirectoryName(Application->ExeName);
	path		= IncludeTrailingPathDelimiter(path) + "data";
	ForceDirectories(path);