掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル名を列挙するには？ (ID:21335)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
FindFirst 関数 FindNext 関数 をつかうのはどうでしょう？ procedure TForm1.Button1Click(Sender: TObject); var S: String; SearchRec: TSearchRec; ret: integer; begin ListBox1.Items.Clear; S := 'c:\*.*'; ret := FindFirst(S, faAnyFile, SearchRec); if ret = 0 then begin repeat if not ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then ListBox1.Items.Add(SearchRec.Name); until FindNext(SearchRec) <> 0; end; SysUtils.FindClose(SearchRec); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.