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

解決

のり 2003-12-16 18:41:18 No: 6216 IP: [192.*.*.*]

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

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

編集削除

直 2003-12-16 18:54:04 No: 6217 IP: [192.*.*.*]

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 IP: [192.*.*.*]

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

やってみます！！

編集削除

のり 2003-12-16 19:36:36 No: 6219 IP: [192.*.*.*]

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

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

編集削除

通りすがり 2003-12-16 19:46:01 No: 6220 IP: [192.*.*.*]

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

編集削除

のり 2003-12-16 19:49:17 No: 6221 IP: [192.*.*.*]

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

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

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

編集削除