如何实现树形目录,如同WINDOWS资源管理器一样?
解决方案 »
- 求助,MessageBox点击“确定”按钮后,不退出,为什么?
- 怎么样使DBGridEh记录移动到最前?
- ADOQuery1.UpdateBatch;修改插入删除表的数据如何调用自己存储过程
- 在DelPhi6.0下如何使用TMemoryTable控件?
- 求救!急。面试题,简单。
- 为什么用DCOMConnection连接中间层,客户端也需要配置DCOM?
- 使用Table对数据进行过滤上的问题
- 关于取消的方法
- 请教各大侠!我想把DBGrid的不能新增(插入)记录,例如按键盘上的上下键不能增加记录,但能修改(编辑)记录,
- Quick Report升级
- 怎么取鼠标的位置?(在线等)
- richedit1中选中的文字为什么不能出现在可以看见的范围内?而需拖动滚动条来找?
ARoot: TTreeNode; AIncludeFiles: Boolean);
var
SearchRec : TSearchRec;
ItemTemp : TTreeNode;
begin
with ATreeView.Items do
try
BeginUpdate;
if ADirectory[Length(ADirectory)] <> '\' then
ADirectory := ADirectory +'\';
if FindFirst(ADirectory + '*.*', faDirectory, SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
ARoot := AddChild(ARoot, SearchRec.Name);
ItemTemp := ARoot.Parent;
DirToTreeView(ATreeView, ADirectory + SearchRec.Name, ARoot, AIncludeFiles);
ARoot := ItemTemp;
end
else if AIncludeFiles then
if SearchRec.Name[1] <> '.' then
AddChild(ARoot, SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
finally
EndUpdate;
end;
end;