问题:怎样用TreeView显示指定的目录,点击TreeView的目录节点时,ListView显示TreeView目录中的文件?
解决方案 »
- 关于Dbgrid导出数据到Excel后自动四舍五入的问题
- 请帮助翻译一下
- Windows程序还有前途吗?会被WEB程序取代吗?哪种语言会是未来Windows程序开发的主流?
- 请用过IDFTP的高手看过来啊见人有分啊
- 求正中的SkinEngine3.4.7控件包
- 为什么这个存储过程执行那么慢?大虾救救我,郁闷啊!
- delphi7 与 delphi6 差别很大吗?
- 请教各位:用条形码控件Barcode编好的条形码打印程序,在普通打印机上可以正常地打印出来,但在斑马打印机上却没反应,为什么?
- 怎样判断 Shift键是否按下
- 喂喂,我已经得到确切消息,Delphi 将会继续开发,为什么这消息没人回应。
- Tlistview对象
- 怎样装*.dcu
ASearchRec:TSearchRec;Yourpath='...';
yourdir:=Yourpath+'\'+TreeView1.Selected.Text;
if FindFirst(yourdir+'\*',faAnyFile,ASearchRec)=0 then
Listview1.items.add.caption:=ASearchRec.Name;
while( FindNext(ASearchRec)=0 )do
Listview1.items.add.caption:=ASearchRec.Name;
FindClose(ASearchRec);
改为if FindFirst(Yourpath+'\'+yourdir+'\*',faAnyFile,ASearchRec)=0 then
如果不是的话用 htzq(想成为高手) 的方法;