這個代碼怎么寫,？？？？？
uj5u.com熱心網友回復：
procedure searchfile(path:string);
var
SearchRec:TSearchRec;
found:integer;
listbox1:string;
begin
found:=FindFirst(path+'*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')
and (SearchRec.Attr<>faDirectory) then
ListBox1.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
uj5u.com熱心網友回復：
function searchfile(path:string):TStringList;
var SearchRec:TSearchRec;
found:integer;
list:TStringList;
begin
list:=TStringList.Create;
found:=FindFirst(path+'\*.*',faAnyFile,SearchRec);
while found=0 do
begin
if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') and (SearchRec.Attr<>faDirectory)
then List.Add(SearchRec.Name);
found:=FindNext(SearchRec);
end;
FindClose(SearchRec);
searchfile:=list;
end;
樓上有錯誤，修改后，編譯并執行。
uj5u.com熱心網友回復：
Memo1.Lines:=searchfile(‘C:\windows’);執行代碼。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/91742.html
標籤：語言基礎/算法/系統設計
下一篇：微信服務商分賬功能開發（PHP）