請問一下~~~如何取得某個資料夾的所有檔案名稱呢?

請搜尋關鍵字[FindFirst]

http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=61923

請善用搜尋功能, KTOP是一個寶庫!!

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.

[code delphi]
function TForm_MakeInstall.GetAllfile(source_path: string): Tstringlist;
var filelist: Tstringlist;
procedure FindAll(const Path: string);
var
sr: TSearchRec;
fr: Integer;
temp_str: string;
begin
fr := FindFirst(Path '\*.*', faAnyFile, sr);
while fr = 0 do
begin
if (sr.Attr = faDirectory) and (sr.Name <> '.') and (sr.Name <> '..') then
FindAll(Path '\' sr.Name) //递归查找下一个目录
else
if (sr.Name <> '.') and (sr.Name <> '..') then
begin
filelist.Append(copy(path, length(source_path) 1, length(path) - length(source_path)) '\' sr.name);
// showmessage(copy(path,length(source_path) 1,length(path)-length(source_path)) '\' sr.name);
end;
temp_str := sr.name;
FindNext(sr);
if temp_str = sr.Name then
break;
end;
FindClose(sr);
end;
begin
filelist := Tstringlist.Create;
FindAll(source_path);
result := filelist;
// filelist.Free;
end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !