Delphi编程。。。

来源：百度知道 编辑：UC知道 时间：2024/05/16 12:05:43
用Delphi作一个程序，删除C:\Temp\里的所有东西 ，并在一个文本框里列出删除的文件名（完整的） ，并记录删除的个数。
怎么弄？？

会用findfirst不 加一个deletefile
procedure find(str:string);
var
f,sum:integer;
rec:Tsearchrec;
begin
sum := 0;
f := findfirst('C:\Temp\'+'*',faanyfile,rec);
while f=0 do
begin
if (rec.Name<>'.') and (rec.Name<>'..') then
begin
if (rec.Attr and fadirectory)=fadirectory then
find('C:\Temp\'+rec.Name)
else
begin
list.add('C:\Temp\'+rec.Name);
inc(sum);
memo1.lines.add('C:\Temp\'+rec.Name);
DeleteFile('C:\Temp\'+rec.Name);
end;
end;
f:=findnext(rec);
end;
findclose(rec);
showmessage('已经删除'+inttostr(sum)+'个');
end;
OK 解决

用deletefile函数不就行了