ディレクトリ内のすべてのMP3ファイルを見つけるにはどうしたらいいですか？

私は最近delphiを使い始めましたが、今はディレクトリからすべてのmp3ファイルを取得したいと思います。私はPHP関数glob（）のようなものが欲しいです。ディレクトリ内のすべてのMP3ファイルを見つけるにはどうしたらいいですか？

2010-11-21 dododedodonl

最近Delphiを使い始めたのはなぜですか？ –

@Mason - 合意しました！ハリー・ポッターのようなものではありません。最初からやり直す必要はありません。 –

@Mason Wheeler：彼はコピーが横たわっていて、mp3を検索するのに900ユーロを費やしたくなかったので？ –

それを行うための古い方法は、およそ次のとおりです。

var 
    status : dword; 
    sr : TSearchRec; 
begin 
    status := FindFirst('*.mp3',faAnyFile,sr); 
    while status = 0 do 
    begin 

    // sr.Name is the filename; add it to a list 
    // or something. Note there is no path so you 
    // may need to add that back on somewhere 

    status := FindNext(sr); 
    end; 
    SysUtils.FindClose(sr); 

    // ... 
end;

出典

2010-11-21 15:59:53 Bill99

conditionは 'status = 0'でなければよく動作します。 – AntonLosev

IOUtils.Tディレクトリを試してください。

出典

2010-11-21 15:22:30

このタイプはDelphi 6にはありません。 –

Bill99 - これがTDirectoryの実装方法です。 –

追加のライブラリがあなたのために[OK]をしている場合、ジェダイコードライブラリを見てみましょう。ユニット共通\ JclFileUtilsで

は、そこにコンパクトなヘルパー関数です：

function BuildFileList(const Path: string; 
    const Attr: Integer; const List: TStrings; 
    IncludeDirectoryName: Boolean = False): Boolean;

JCLよく維持され、大きな拡張およびいくつかのIDEの改善が含まれています。（非常に使いやすい）JCLのインストーラが提供されていますhttp://sourceforge.net/projects/jcl/

出典

2010-11-21 16:18:55 mjn

で非常に素晴らしい無料のコンポーネントは、DelphiエリアでTFindFileです： http://www.delphiarea.com/products/delphi-components/findfile/

それは、ねじまたは非、あなたのファイル/フォルダの検索を完全に制御を提供します

出典

2010-11-21 18:26:00 Logman

Delphi FileCtrlユニットの古代のTFileListBoxは良い解決策です。

デルファイ1以降、デルファイについてはhas a nice example on how to use itです。

フォームにドロップすることができます。Visible = Falseと設定してください。心配することはありません。

これはフィルタリングをサポートしています（拡張子など）ので、* .mp3基準でうまく動作します。

--jeroen

出典

2010-11-21 23:21:35

ディレクトリ内のすべてのMP3ファイルを見つけるにはどうしたらいいですか？

答えて

関連する問題