5
誰能幫我解釋一下這個遍歷檔案演算法.... if (searchrec.name<>'.') and (searchrec.name<>'..') and (searchrec.name<>'img') 這句是什麼意思? <> 是大於還是小於...還是什麼意思...我是初學delphi的,對delphi的語法都不熟,想通過這個程式了解一下
謝謝哈!!!
食用菌9級2009-08-28
你這個演算法只查當前的傳入的資料夾的檔案,含不了子目錄追問:
這三句是什麼意思啊?
findfirst(path, attr, searchrec);
filelist.add(searchrec.name);
findnext(searchrec);
回答:findfirst(path, attr, searchrec); 第一次查檔案,//path是路徑, attr是屬性,比如,系統檔案還是隱藏檔案。。。searchrec如果成功就放在這存著。
filelist.add(searchrec.name);//用把查到的檔名,用filelist存放
findnext(searchrec);//繼續按第一次查的引數查詢
0 0
提問者 的感言:
謝謝~~
2009-08-28
熱心問友 2009-08-28
<> 是不等於。
if (searchrec.name<>'.') and (searchrec.name<>'..') and (searchrec.name<>'img') 是排除特殊目錄.和..和img。
追問:是不是目錄中有'.'和'..'各'img'就執行if後面的filelist.add(searchrec.name);
findfirst(path, attr, searchrec);
filelist.add(searchrec.name);
findnext(searchrec);
又是什麼意思啊?
回答:
是排除這3種情況。每次只獲得乙個目錄項,如果不是這3種情況就執行filelist.add(searchrec.name);
Delphi遍歷控制項
var i integer begin for i 0 to panel1.controlcount do begin 控制項 panel1.controls i 加入自己 end end procedure tform1.button2click sender tobject var i inte...
delphi控制項遍歷
delphi中,遍歷窗體上的控制項,並顯示在listbox1中 listbox1.items.add 開始遍歷控制項 for i 1 to componentcount 1 do begin listbox1.items.add components i name if components i i...
delphi遍歷目錄下所有檔案
procedure tbsfilebackupform.searchfile path pchar fileext string filelist tstringlist var searchrec tsearchrec found integer tmpstr string curdir stri...