如何把目录的文件列表读入字符数组(100分)

;ChDir(s);//s为你的目录
if FindFirst(s,faAnyFile,f)=0 then
while FindNext(F)=0 do
begin
listbox1.items.add(f.Name);
end;

Program Demo;

var dir:tstringlist;

procedure findname(r:string);
var sr: TSearchRec;
begin
if FindFirst(r+'/*.*', $3f, sr) = 0 then
dir.Items.Add(r+'/'+sr.name);
while FindNext(sr) = 0 do
dir.Items.Add(r+'/'+sr.name);
FindClose(sr);
end;

begin
dir:=tstringlist.create;
findname('c:/windows'); //自己设定目录,把所有文件名存入 dir 中
dir.free;
end.

多人接受答案了。