掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
FindFirstのワイルドカード使用時 (ID:12334)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっています。クリップです。 今回はFindFirst関数でワイルドカードを使用して、ファイルの検索をしようとしているんですが、 procedure TForm1.Button1Click(Sender: TObject); var Sr:TSearchRec; FilterStr:string; begin Memo1.Clear; FilterStr:= '*1*'; if FindFirst('E:\Test\' + FilterStr + '.*', faAnyFile, Sr)=0 then begin repeat if (Sr.Attr and faDirectory)=0 then Memo1.Lines.Add(Sr.Name); until FindNext(Sr)>0; end; FindClose(Sr); end; とすると、FilterStrを上記のソースのように('*1*')すると すべてのファイルを拾ってしまいます。他の数値では問題ありません。 また、 FilterStr:= '*1' とか FilterStr:= '1*' だとちゃんと条件に合ったものを拾ってくれます。 なにとぞ、よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.