フォルダの中のファイルをConboBoxに表示するには？

解決

のり 2003-12-16 18:41:18 No: 6216

いつもお世話になっています。

今回の質問なんですが、指定したディレクトリ内のファイル、今回はIniファイルなんですが、そのファイルの一覧をComboBoxに閲覧したいのですが、やり方はあるでしょうか？宜しくお願いします。

直 2003-12-16 18:54:04 No: 6217

FindFirst - FindNext - FindClose を使用すればできます。
FindFirst Helpより、C:\のIniファイルを検索するコードです。

procedure TForm1.Button1Click(Sender: TObject);
var
sr: TSearchRec;
begin
ComboBox1.Items.Clear;

  if FindFirst('c:\*.ini', FaAnyFile, sr) = 0 then
  begin
    repeat
      ComboBox1.Items.Add(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

のり 2003-12-16 19:05:27 No: 6218

ありがとうございます！！

やってみます！！

のり 2003-12-16 19:36:36 No: 6219

できました！！ありがとうございます！！

ちなみになんですが、ComboBoxに表示する時に拡張子だけを消す方法はありますか？

通りすがり 2003-12-16 19:46:01 No: 6220

ComboBox1.Items.Add(ChangeFileExt(sr.Name,''));
です。

のり 2003-12-16 19:49:17 No: 6221

通りすがりさん、ありがとうございます。

先日に使った関数で出来るんですね！！
勉強になりました。

直さん、通りすがりさん、ありがとうございました。