{"id":5959,"date":"2013-03-29T15:12:29","date_gmt":"2013-03-29T06:12:29","guid":{"rendered":"http:\/\/www.gesource.jp\/weblog\/?p=5959"},"modified":"2017-07-16T10:25:30","modified_gmt":"2017-07-16T01:25:30","slug":"delphi%e3%81%aetdirectorygetfiles%e3%81%a7%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ae%e4%b8%80%e8%a6%a7%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.gesource.jp\/weblog\/?p=5959","title":{"rendered":"Delphi\u306eTDirectory.GetFiles\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b"},"content":{"rendered":"<p>\u4ee5\u524d\u306bC++Builder\u7528\u306b\u66f8\u3044\u305f\u300c<a href=\"http:\/\/www.gesource.jp\/weblog\/?p=4509\">TDirectory::GetFiles\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b<\/a>\u300d\u306eDelphi\u7248\u3067\u3059\u3002<\/p>\n<p>System.IOUtils\u30e6\u30cb\u30c3\u30c8\u306e<a href=\"http:\/\/docwiki.embarcadero.com\/Libraries\/ja\/System.IOUtils.TDirectory.GetFiles\" title=\"System.IOUtils.TDirectory.GetFiles - RAD Studio API Documentation\">TDirectory.GetFiles<\/a>\u306f\u3001\u6307\u5b9a\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30ea\u30b9\u30c8\u3092\u8fd4\u3057\u307e\u3059\u3002<br \/>\n(<a href=\"http:\/\/docwiki.embarcadero.com\/Libraries\/ja\/System.IOUtils.TDirectory.GetFiles\" title=\"System.IOUtils.TDirectory.GetFiles - RAD Studio API Documentation\">TDirectory.GetFiles<\/a>\u306fDelphi 2010\/C++Builder 2010\u3067\u8ffd\u52a0\u3055\u308c\u305f\u6a5f\u80fd\u3067\u3059\u3002)<\/p>\n<ul>\n<li><a href=\"http:\/\/docwiki.embarcadero.com\/Libraries\/ja\/System.IOUtils.TDirectory.GetFiles\" title=\"System.IOUtils.TDirectory.GetFiles - RAD Studio API Documentation\">docwiki System.IOUtils.TDirectory.GetFiles &#8211; RAD Studio API Documentation<\/a><\/li>\n<\/ul>\n<p>\u7b2c\u4e00\u5f15\u6570\u306ePath\u3067\u30d5\u30a1\u30a4\u30eb\u3092\u5217\u6319\u3057\u305f\u3044\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u30d1\u30b9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<p>\u7b2c\u4e8c\u5f15\u6570\u306eSearchPattern\u3067\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3057\u307e\u3059\u3002<\/p>\n<p>\u7b2c\u4e09\u5f15\u6570\u306eOption\u3067\u30b5\u30d6\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u3082\u691c\u7d22\u3059\u308b\u304b\u3069\u3046\u304b\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002<\/p>\n<p>Path\u306f\u5fc5\u9808\u306e\u5f15\u6570\u3067\u3059\u3002SearchPattern\u3068Option\u306f\u30aa\u30d7\u30b7\u30e7\u30f3\u3067\u3059\u3002<\/p>\n<pre><code>uses System.IOUtils, System.Types;\n\nvar\n  Path: string;\n  SearchPattern: string;\n  Option: TSearchOption;\n  FileNames: TStringDynArray;\n  FileName: string;\nbegin\n  \/\/ \u30d5\u30a1\u30a4\u30eb\u3092\u5217\u6319\u3057\u305f\u3044\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u30d1\u30b9\n  Path := Edit1.Text;\n  \/\/ \u30d5\u30a1\u30a4\u30eb\u540d\u306b\u4e00\u81f4\u3059\u308b\u691c\u7d22\u30d1\u30bf\u30fc\u30f3\n  SearchPattern := '*.txt';\n  \/\/ \u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u5217\u6319\u30e2\u30fc\u30c9\n  Option := TSearchOption.soTopDirectoryOnly; \/\/ \u30c8\u30c3\u30d7\u30ec\u30d9\u30eb\u5217\u6319\u30e2\u30fc\u30c9\n  \/\/ Option := TSearchOption.soAllDirectories; \/\/ \u518d\u5e30\u5217\u6319\u30e2\u30fc\u30c9\n\n  \/\/\u6307\u5b9a\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30ea\u30b9\u30c8\n  FileNames := TDirectory.GetFiles(Path, SearchPattern, Option);\n  for FileName in FileNames do\n  begin\n    ListBox1.Items.Add(FileName);\n  end;\nend;\n<\/code><\/pre>\n<p>\u30d5\u30a3\u30eb\u30bf\u30ea\u30f3\u30b0\u3092\u3088\u308a\u7d30\u304b\u304f\u6307\u5b9a\u3057\u305f\u3044\u6642\u306b\u306f\u3001TDirectory::TFilterPredicate\u578b\u3092\u5f15\u6570\u306b\u4f7f\u7528\u3057\u307e\u3059\u3002<\/p>\n<pre><code>var\n  Path: string;\n  SearchPattern: string;\n  Option: TSearchOption;\n  FileNames: TStringDynArray;\n  FileName: string;\n  Filter: TDirectory.TFilterPredicate;\nbegin\n  \/\/ \u30d5\u30a1\u30a4\u30eb\u3092\u5217\u6319\u3057\u305f\u3044\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u30d1\u30b9\n  Path := Edit1.Text;\n  \/\/ \u30d5\u30a1\u30a4\u30eb\u540d\u306b\u4e00\u81f4\u3059\u308b\u691c\u7d22\u30d1\u30bf\u30fc\u30f3\n  SearchPattern := '*.txt';\n  \/\/ \u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u5217\u6319\u30e2\u30fc\u30c9\n  Option := TSearchOption.soTopDirectoryOnly; \/\/ \u30c8\u30c3\u30d7\u30ec\u30d9\u30eb\u5217\u6319\u30e2\u30fc\u30c9\n  \/\/ Option := TSearchOption.soAllDirectories; \/\/ \u518d\u5e30\u5217\u6319\u30e2\u30fc\u30c9\n\n  \/\/\u671b\u307e\u306a\u3044\u7d50\u679c\u3092\u9664\u53bb\u3059\u308b\u305f\u3081\u306b\u4f7f\u308f\u308c\u308b\u30eb\u30fc\u30c1\u30f3\n  Filter := function(const Path: string; const SearchRec: TSearchRec): Boolean\n    begin\n      Result := Length(SearchRec.Name) &gt; 5; \/\/5\u6587\u5b57\u4ee5\u4e0a\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u307f\n    end;\n\n  \/\/\u6307\u5b9a\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u5185\u306e\u30d5\u30a1\u30a4\u30eb\u306e\u30ea\u30b9\u30c8\n  FileNames := TDirectory.GetFiles(Path, SearchPattern, Option, Filter);\n  for FileName in FileNames do\n  begin\n    ListBox1.Items.Add(FileName);\n  end;\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u4ee5\u524d\u306bC++Builder\u7528\u306b\u66f8\u3044\u305f\u300cTDirectory::GetFiles\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b\u300d\u306eDelphi\u7248\u3067\u3059\u3002 System.IOUtils\u30e6\u30cb\u30c3\u30c8\u306eTDirectory.GetFiles\u306f\u3001\u6307\u5b9a\u306e\u30c7\u30a3 &#8230;<\/p>\n<p><a href=\"https:\/\/www.gesource.jp\/weblog\/?p=5959\" class=\"more-link\">Continue reading &lsquo;Delphi\u306eTDirectory.GetFiles\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b&rsquo; &raquo;<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[48],"tags":[156],"class_list":["post-5959","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-delphi"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts\/5959","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=5959"}],"version-history":[{"count":0,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts\/5959\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5959"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5959"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5959"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}