如何读出一个目录下的所有文件，并将其路径和名称写到一个数据库表中？(100分)

如何读出一个目录下的所有文件，并将其路径和名称写到一个数据库表中？
最好能给出代码。

昨天才有朋友问了这个的列！去看看。

下面的代码搜索出文件的路径和名称，分别列举到两个列表框中，你也可以直接写入
数据库中，在这里查找的是C：/windows目录下的所有文件的路径和名称，路径在
ListBox1中，文件名称在Listbox2中，窗体上组件有：Button1,Listbox1,ListBox2

procedure TForm1.searchpath(path: string);
var
searchrec: TSearchRec;
begin
//ÔÚ·¾¶ºóÃæ¼ÓÉÏ'/'
if path[length(path)] <> '/' then
path := path + '/';
if FindFirst(path + '*.*', faAnyFile, SearchRec) <> 0 then exit;
//&amp;Aring;&amp;ETH;&amp;para;&amp;Iuml;&amp;Ecirc;&amp;Ccedil;·&amp;ntilde;&amp;Icirc;&amp;ordf;&amp;Auml;&amp;iquest;&amp;Acirc;&amp;frac14;&amp;pound;&amp;not;&amp;Ecirc;&amp;Ccedil;&amp;Auml;&amp;iquest;&amp;Acirc;&amp;frac14;&amp;Ocirc;ò&amp;Ntilde;&amp;shy;&amp;raquo;·
if (searchrec.Attr and faDirectory) <> 0 then
begin
if (searchrec.name <> '.') and (searchrec.name <> '..') then
searchpath(path + searchrec.name);
end
else
begin
ListBox1.Items.Add(path + searchrec.name);
lIstBox2.Items.Add(searchrec.name);
end;
while findnext(searchrec) = 0 do
begin
if (searchrec.Attr and faDirectory) <> 0 then
begin
if (searchrec.name <> '.') and (searchrec.name <> '..') then
searchpath(path + searchrec.name);
end
else
begin
ListBox1.Items.Add(path + searchrec.name);
lIstBox2.Items.Add(searchrec.name);
end;
end;
findclose(searchrec);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
searchpath('C:/windows');
end;

能解释一下程序中主要语句的功能吗？

taozhiyu贴子叫什么标题？

接受答案了.