Question

delphi中的Tsearchrec是个什么东东???

有人给出这个类型的详细解释吗?谢谢了.

Answer 1

TSearchRec是Delphi封装的Windows文件信息的一个结构体，用于遍历文件夹，文件，通常和FindFirst、FindNext配合使用。以下是采用递归方法删除文件夹的函数。

function DeleteDirectory(Directory: string): Integer;
var
SR: TSearchRec;
FR: Integer;
begin
Result:= -1;
if not DirectoryExists(Directory) then
Exit;

try
FR:= FindFirst(Directory + '*.*', FaAnyfile, SR);
while FR = 0 do
begin
if ((SR.Attr and FaDirectory) = FaDirectory) and (SR.Name <> '.') and
(SR.Name <> '..') then
begin
if DeleteDirectory(Directory + SR.Name) = -1 then
Break;
end;
if ((SR.Attr and FaDirectory <> FaDirectory) and (SR.Attr and FaVolumeID<> FaVolumeID)) then
begin
FileSetAttr(Directory+ SR.Name,FileGetAttr(Directory+ SR.Name) and (not faReadOnly));
if not DeleteFile(PChar(Directory + SR.Name)) then
Break;
end;
FR:= FindNext(SR);
end;

FindClose(SR);
RemoveDirectory(PChar(Directory));
Result:= 0;
except
Result := -1;
end;

end;