请教高手,我将整个目录的文件写到一个ListBox1里,想按字母顺序写入!!应该怎么做呀???
解决方案 »
- 如何使用winapi WriteFile?
- 错误: 找不到要更新的资料列最后读取的值已变更!!急!在线
- 一个关于日期在XP下录入的怪问题?
- 如何知道鼠标已经在任意程序中选择了文本,或OLE对象
- 救命呀,delphi怎样写注册表呀,我想控制软件的使用次数,-----------在线等待
- 不简单的问题!解决结贴
- 关于映射硬盘的问题?(50分)
- 我的分布式多層架構為什么客戶机不能更新數据?
- 怎样显示报表页总数问题
- 我们制作的"欢乐家庭-理财软件"准备开放源代码.
- 好心人,进来看看!小弟快沉了,帮帮忙,谢谢了!
- 如何按下shift/ctrl 键在checklistbox实现多选?thanks a lot!!!
用一个循环,我这有个把文件夹里的文件全部加到树上的例子,你自己改改吧,
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;