关于opendialog问题
怎样把一文件夹的文件一次读入到listbox,不打开文件夹! 问题点数:0、回复次数:5Top
1 楼lion_lh(xmanx)回复于 2003-06-03 09:53:36 得分 0
var
SearchRec: TSearchRec;
begin
if FindFirst('C:\*.*', faAnyFile, SearchRec) = 0 then
begin
repeat
listbox1.Items.Add(SearchRec.Name);
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;Top
2 楼csdmzw(伟)回复于 2003-06-04 00:38:52 得分 0
ListView 结合 listboxTop
3 楼nuaabestbo(superbo)回复于 2003-06-04 22:56:21 得分 0
listbox1.Items:=opendialog1.FilesTop
4 楼nuaabestbo(superbo)回复于 2003-06-05 16:44:20 得分 0
opendialog1.Options:=[ofAllowMultiSelect];
if opendialog1.Execute then
listbox1.Items.Assign(opendialog1.files);Top
5 楼wangzn1979(梦郎2003)回复于 2003-06-05 18:13:06 得分 0
强人多啊!Top




