Tsearchrec?(25分)

  • 主题发起人 主题发起人 fossil
  • 开始时间 开始时间
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<>'..'是什么意思?
 
没用过DOS命令吗?:)
'.'代表本级目录。
'..'代表上一级目录。
 
不好意思,没用过
 
后退
顶部