指定したDirのファイル一覧を表示させるには？ (ID:44132)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 作成したいプログラムは、 VCL のフォームに EditBOX、ListBox、ボタンを貼り付けます。 EditBox に、Dirパスを入力し、ボタンを押すと、 ListBox に、指定した拡張子のファイル一覧が表示される というものです。 http://www.gesource.jp/weblog/?p=4509 上記 URL のコードを Delphi で確認したいと思い、 下記のように書き換えてみました。 ところが、①〜④の行でエラーが出ます。 どのようにコード修正すればいいでしょうか。 ご指導の程よろしくお願い致します。 使用環境 WIN 7 64bit SP2 Delphi XE3 Update2 procedure TForm1.Button1Click(Sender: TObject); var i : integer; Path, SearchPattern : UnicodeString; begin //ファイルを列挙したいディレクトリのパス Path := Edit1.Text; //ファイル名に一致する検索パターン SearchPattern := '*.txt'; //ディレクトリの列挙モード ① TSearchOption Option := TSearchOption::soTopDirectoryOnly; //トップレベル列挙モード //TSearchOption option = TSearchOption::soAllDirectories; //再帰列挙モード ② TStringDynArray files := TDirectory::GetFiles(Path, SearchPattern, Option); ③ for i := 0 to files.Length-1 do begin ④ ListBox1.Items.Add(files[i]); end; end;