问题1：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function isvalidfile(searchrec:tsearchrec):boolean;
function searchFile(filepath:string;filelist:tstringlist):boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function tform1.isvalidfile(searchrec:tsearchrec):boolean;
begin
if (searchrec.Attr=16) or (searchrec.Attr=8) then
result:=false
else result:=true;
end;
function tform1.searchFile(filepath:string;filelist:tstringlist):boolean;
var searchrec:tsearchrec;
searchstr:string;
begin
if filelist=nil then
begin
result:=false;
exit;
end
else
begin
filelist.Clear;
end;
result:=false;
if copy(filepath,length(filepath),1)<>'/' then
searchstr:=filepath+'/*.*';
if (findfirst(searchstr,faanyfile,searchrec)=0) then
begin
result:=true;
if isvalidfile(searchrec) then
filelist.Add(searchrec.Name);
while (findnext(searchrec)=0) do
begin
if isvalidfile(searchrec) then
filelist.Add(searchrec.Name);
end;
end;
findclose(searchrec);
end;
procedure TForm1.Button1Click(Sender: TObject);
var filelist:tstringlist;
i:integer;
begin
filelist:=tstringlist.Create;
if searchFile(trim(edit1.Text),filelist) then
begin
memo1.Clear;
for i:=0 to filelist.Count-1 do
begin
memo1.Lines.Add(filelist.Strings);
end;
end;
end;
end.
如果文件夹中还有文件，可以循环之。
