F
fossil
Unregistered / Unconfirmed
GUEST, unregistred user!
var
rec:Tsearchrec;
begin
Result := 0;
Findfirst(path+'*.*',faAnyFile,rec);
while FindNext(rec) = 0 do
begin
if ((rec.Attr and faDirectory)=faDirectory) and (rec.name<>'.') and (rec.Name<>'..') then //判断有没有目录存在
以上rec.name<>'.'是什么意思?
rec.name<>'..'是什么意思?
rec:Tsearchrec;
begin
Result := 0;
Findfirst(path+'*.*',faAnyFile,rec);
while FindNext(rec) = 0 do
begin
if ((rec.Attr and faDirectory)=faDirectory) and (rec.name<>'.') and (rec.Name<>'..') then //判断有没有目录存在
以上rec.name<>'.'是什么意思?
rec.name<>'..'是什么意思?