delphi 遍歷檔案演算法 含遍歷目錄演算法

2021-06-20 08:48:34 字數 1707 閱讀 2146

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...