delphi中findfirst函数中文SearchRec.Name<>'.'和SearchRec.Name<>'..'是什么意思

老子横刀向天笑 2012-09-19 10:35:43

if (SearchRec.Attr=16) and (SearchRec.Name <> '. ') and (SearchRec.Name <> '.. ') then
其中的SearchRec.Name <> '. '和SearchRec.Name <> '.. '具体是什么意思。。。。。

...全文

263 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

cdchq 2012-09-20

打赏
举报

回复

.是本目录
..是上一级目录

SearchRec.Name <> '. '和SearchRec.Name <> '.. '
就是排除这两个

JPEXE 2012-09-20

打赏
举报

回复

'.' 表示本目录，'..' 表示父目录
那两句的意思就是排除文件夹，只搜索文件

老子横刀向天笑 2012-09-20

打赏
举报

回复

亲，谢谢！

delphi获得某个磁盘或是文件夹的所有子目录

Delphi 快速删除相关目录和文件，可以删除到垃圾箱，也可以直接删除。

delphi7 自制图片浏览器相对比较成熟，可以将图片设置为桌面背景，代码供初学者参考！

delphi中的常用函数时间函数，文件函数

一些Delphi常用的代码及问题展示` 如： //为控件加边框 procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT; procedure TForm1.WMNCPaint(var Msg: TWMNCPaint); var dc: hDC; Pen: hPen; OldPen: hPen; OldBrush: hBrush; begin inherited; dc := GetWindowDC(Handle); msg.Result := 1; Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0)); OldPen := SelectObject(dc, Pen); OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH)); Rectangle(dc, 0, 0, Self.Width, Self.Height); SelectObject(dc, OldBrush); SelectObject(dc, OldPen); DeleteObject(Pen); ReleaseDC(Handle, Canvas.Handle); end;

Windows SDK/API

1,184

社区成员

22,326

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章