各位前輩，在此有兩個問題想向大家請教 第一...如果想做出全文檢索的功能...該從何下手呢？ (例如：WIN2000搜索功能的"內含文字") 第二...有沒有辦法做到類似以前DOS的DIR指令...直接將目錄檔案的資料輸出到文字檔的功能呢？ (例如： DIR *.* > 1.TXT) 甚至更下層的目錄.... 請大家多多幫忙^^"

你可以利用 FindFirst, FindNext 等相關的函數來進行整個路徑的檔案列表, 然後配合 FileOpen, FindRead 來進行開檔並讀取的功能來檢索即可!! 用以上的相關函數來查一下之前的文章, 很快就能得到你要的功能..

引言: 各位前輩，在此有兩個問題想向大家請教 第一...如果想做出全文檢索的功能...該從何下手呢？ (例如：WIN2000搜索功能的"內含文字") 第二...有沒有辦法做到類似以前DOS的DIR指令...直接將目錄檔案的資料輸出到文字檔的功能呢？ (例如： DIR *.* > 1.TXT) 甚至更下層的目錄.... 請大家多多幫忙^^"

為何不用 TDirectoryListBox / TFileListBox... 或 TShellTreeView / TShellListView ... ? 只能用 WINDOWS API 嗎 ? /* Free 和 Create 一樣重要 */

Hi stonys 試試這一段:

procedure TForm1.ShowAllFile(InDir: String);
var
  sr: TSearchRec;
  FileAttrs: Integer;
begin
  if FindFirst(InDir '\*.*', faAnyFile, sr) = 0 then begin
     Memo1.Lines.Add( InDir   ' [DIR]');
     while FindNext(sr) = 0 do begin
           if (sr.Name = '.') or (sr.Name = '..') then continue;
           if ((sr.Attr and faDirectory) = faDirectory) then
              ShowAllFile(InDir   '\'   sr.Name)
           else
              Memo1.Lines.Add( '   ' sr.Name   ' [File]');
           Application.ProcessMessages;
     end;
  end;
  FindClose(sr);
end;

拉一個TMemo, ShowAllFile('c:\Download'); 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.