【开源】遍历目录或文件(delphi7)

阿杰

<table style="TABLE-LAYOUT: fixed">
<tbody>
<tr>
<td>
<div id="blog_text" class="cnt">unit Unit1; <br/><br/>interface <br/><br/>{$WARN UNIT_PLATform OFF}<br/>uses<br/>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, forms,<br/>Dialogs, StdCtrls, FileCtrl; <br/><br/>type<br/>Tform1 = class(Tform)<br/>Button1: TButton;<br/>Memo1: TMemo;<br/>Edit1: TEdit;<br/>Button2: TButton;<br/>Memo2: TMemo;<br/>Edit2: TEdit;<br/>procedure Button1Click(Sender: TObject);<br/>procedure Button2Click(Sender: TObject);<br/>procedure Memo1DblClick(Sender: TObject);<br/>private<br/>{ Private declarations }<br/>public<br/>{ Public declarations }<br/>end; <br/><br/>var<br/>form1: Tform1;<br/>sDIR:string; <br/><br/>implementation <br/><br/>{$R *.dfm}<br/>// 放两个button,两个Edit,两个memo控件到form 上<br/>procedure SCanDir(objDir:string;dirList:TStrings);<br/>var<br/>sr:TSearchRec;<br/>begin<br/>dirList.Clear;<br/>if FindFirst(objDir, faDirectory, sr) = 0 then<br/>begin<br/>repeat<br/>if (sr.Attr and faDirectory) = faDirectory then<br/>begin<br/>if (sr.Name='.') or (sr.Name='..') then continue;<br/>dirList.Add(sr.Name);<br/>end;<br/>until FindNext(sr) &lt;&gt; 0;<br/>FindClose(sr);<br/>end; <br/><br/>end; <br/><br/>procedure SCanFile(objfile:string;fileList:TStrings);<br/>var<br/>sr:TSearchRec;<br/>begin<br/>fileList.Clear;<br/>if FindFirst(objFile, faAnyFile, sr) = 0 then<br/>begin<br/>repeat<br/>fileList.Add(sr.Name);<br/>until FindNext(sr) &lt;&gt; 0;<br/>FindClose(sr);<br/>end; <br/><br/>end; <br/><br/>procedure Tform1.Button1Click(Sender: TObject);<br/>begin<br/>if SelectDirectory('选择目录',sDIR,sDIR) then<br/>edit1.text:=sDIR;<br/>end; <br/><br/>procedure Tform1.Button2Click(Sender: TObject);<br/>begin<br/>SCanDir(sDIR+'\????????',Memo1.lines);<br/>end; <br/><br/>procedure Tform1.Memo1DblClick(Sender: TObject);<br/>var<br/>nLine:integer;<br/>ss:string;<br/>begin<br/>nLine:=memo1.Perform(EM_LINEFROMCHAR,memo1.SelStart,0);<br/>edit2.Text :=inttostr(nLine);<br/>ss:= memo1.Lines[nLine];<br/>memo2.Clear;<br/>if ss &lt;&gt; '' then<br/>SCanFile(sDIR+'\'+ss+'\*.txt',Memo2.Lines); <br/><br/>end; <br/><br/>end.</div></td></tr></tbody></table>