コンボボックスの項目のデータベース名のリストを取得する

Question

コンボボックスの項目のプロパティに、実行時にapplicaton.exeディレクトリにあるデータベース名（* .mdb）を設定するにはどうすればよいですか？

Answer 1

TDirectory.GetFiles関数を使用して、すべての* .mdbファイルを列挙し、結果をTStringDynArrayに格納します。結果をループし、値をコンボボックスに挿入します。 System.IOUtilsとSystem.Typesが含まれていることを確認してください。パスを使用せずにファイル名のみを挿入するには

var 
    I: Integer; 
    MyList: TStringDynArray; 
begin 
    MyList := TDirectory.GetFiles(ExtractFilePath(ParamStr(0)), '*.mdb', 
    TSearchOption.soAllDirectories); 
    for I := 0 to Length(MyList) - 1 do 
    begin 
    ComboBox1.Items.Add(MyList[I]); 
    end; 
end; 

：

ComboBox1.Items.Add(ExtractFileName(MyList[I]));