有关combobox的问题,请高手帮忙!!!!

我要在combobox中显示出某一个文件夹下面的所有文件,并且这个文件夹下的文件是变动的,我采用这样的方式显示,代码如下:
const systemdir='F:\program\designreport\reportrtm\';
procedure TForm1.combobox1Click(Sender: TObject);
var filename:string;
    force:string;
begin
force:=extractfilename(systemdir+filename);
if combobox1.Items.IndexOf(force)<0 then
    combobox1.Items.Add(force);
end;
但是这样好象不行啊请高手指教!!!!!

解决方案 »

  1.   

    错误太多了，先问第一句：
    你的filename有内容么？
      

  2.   

    用ListView1行不行呢？
    你想要个什么功能
      

  3.   

    不行,我只能用combobox,那该怎么做啊各位高手请指点
      

  4.   

    这样是不行的……
    用windows api里的findExists函数，查询你指定的目录……
      

  5.   

    filename没有内容啊用一个变量代替文件夹所有的文件啊 
      

  6.   

    用一个变量代替文件夹"所有"的文件？比如一个文件夹a下有三个文件a1 a2 a3,你能不能告诉我你期望的filename的值是什么？