 
procedure searchfile(path:string);//注意,path后面要有'\'; 
var 
SearchRec:TSearchRec; 
found:integer; 
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; 

復(fù)制代碼代碼如下:

 
procedure SearchFile(path:string); 
var 
SearchRec:TSearchRec; 
found:integer; 
begin 
found:=FindFirst(path+'*.*',faAanyFile,SearchRec); 
while found=0 do 
begin 
if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and 
(SearchRec.Name=faDirectory) then 
SearchFile(SearchRec.Name+'\') 
else 
LisBox1.Add(SearchRec.Name); 
found:=FindNext(SearchREc); 
end; 
FindClose(SearchRec); 
end; 

相關(guān)文章

nacos?2.1.0集群多節(jié)點(diǎn)部署最新詳細(xì)教程
這篇文章主要介紹了全網(wǎng)最新的nacos?2.1.0集群多節(jié)點(diǎn)部署教程,本文給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2022-07-07
程序員開發(fā)項(xiàng)目是選擇效率還是質(zhì)量呢？
這篇文章主要介紹了程序員開發(fā)項(xiàng)目是選擇效率還是質(zhì)量呢？本文對(duì)這個(gè)每個(gè)程序員都會(huì)遇到的一個(gè)問題做了講解,需要的朋友可以參考下
2014-07-07
關(guān)于VSCode 裝好ESLint 插件 import 報(bào)黃線的問題
這篇文章主要介紹了VSCode 裝好ESLint 插件 import 報(bào)黃線的問題,本文通過圖文并茂的形式給大家介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下
2020-11-11
Git基礎(chǔ)知識(shí)以及常用命令
這篇文章主要介紹了Git基礎(chǔ)知識(shí)以及常用命令,在日常工作中g(shù)it少不了，所以編寫本篇文章教大家如何使用git，便于日后工作與學(xué)習(xí),需要的朋友可以參考下
2023-05-05
使用IDEA回滾某次提交的代碼步驟
這篇文章主要介紹了使用IDEA回滾某次提交的代碼步驟,在平時(shí)的開發(fā)中,不小心commit了錯(cuò)誤的代碼怎么辦,就需要用到回滾了,需要的朋友可以參考下
2023-03-03
fiddler抓包小技巧之自動(dòng)保存抓包數(shù)據(jù)的實(shí)現(xiàn)方法分析【可根據(jù)需求過濾】
這篇文章主要介紹了fiddler抓包小技巧之自動(dòng)保存抓包數(shù)據(jù)的實(shí)現(xiàn)方法,較為詳細(xì)的分析了fiddler自動(dòng)保存抓包數(shù)據(jù)及根據(jù)需求過濾相關(guān)操作技巧,需要的朋友可以參考下
2020-01-01
在MAUI中使用Masa?Blazor的方法
這篇文章主要介紹了在MAUI中使用Masa?Blazor,探索一下如何在MAUI中使用Masa?Blazor,開頭介紹了什么是MAUI，需要的朋友可以參考下
2022-04-04
通過Cursor工具使用GPT-4的方法詳解
Cursor?是集成了?GPT-4?的?IDE?工具，目前免費(fèi)并且無需?API?Key，支持?Win、Mac、Linux?平臺(tái)，可以按要求生成代碼，或者讓?AI?幫助優(yōu)化代碼，分析代碼，這篇文章主要介紹了通過Cursor工具使用GPT-4的方法,需要的朋友可以參考下
2023-05-05
Git基礎(chǔ)學(xué)習(xí)之分支基本操作詳解
這篇文章主要為大家詳細(xì)介紹了Git基礎(chǔ)學(xué)習(xí)中分支的基本操作，例如分支的創(chuàng)建、查看、切換和刪除等，感興趣的小伙伴可以跟隨小編一起學(xué)習(xí)一下
2022-10-10
vscode?ssh遠(yuǎn)程連接服務(wù)器的思考淺析
這篇文章主要為大家介紹了vscode?ssh遠(yuǎn)程連接服務(wù)器的思考淺析，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪
2023-02-02