1获取指定目录下所有文件名称时却找不到没有属性的文件

gxgxfish0813 2004-03-06 02:17:13
程序如下
function GetDirFile(TypeName: String; DirName: String):TStringList;
{ 返回值为字符串列表 }
var
sr: TSearchRec;
FileAttrs: Integer;
StrList: TStringList;
begin
StrList := TStringList.Create;
DirName := GetDirName(DirName);
FileAttrs := faAnyFile;
if FindFirst(DirName + TypeName, FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
StrList.Add(sr.name);
until FindNext(sr) <> 0;
FindClose(sr);
end;
Result := StrList;
// StrList.Free;
end; { GetDirFile }
为段代码可以把".","..","xxxx"所有文件列出来,可是,当我把一个文本文件的属性设为,即不只读也不存档

,也不系统时,却找不到这个文件了。这是为什么,怎么解决这个问题??
...全文
33 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
内容概要:本书《Deep Reinforcement Learning with Guaranteed Performance》探讨了基于李雅普诺夫方法的深度强化学习及其在非线性系统最优控制中的应用。书中提出了一种近似最优自适应控制方法,结合泰勒展开、神经网络、估计器设计及滑模控制思想,解决了不同场景下的跟踪控制问题。该方法不仅保证了性能指标的渐近收敛,还确保了跟踪误差的渐近收敛至零。此外,书中还涉及了执行器饱和、冗余解析等问题,并提出了新的冗余解析方法,验证了所提方法的有效性和优越性。 适合人群:研究生及以上学历的研究人员,特别是从事自适应/最优控制、机器人学和动态神经网络领域的学术界和工业界研究人员。 使用场景及目标:①研究非线性系统的最优控制问题,特别是在存在输入约束和系统动力学的情况下;②解决带有参数不确定性的线性和非线性系统的跟踪控制问题;③探索基于李雅普诺夫方法的深度强化学习在非线性系统控制中的应用;④设计和验证针对冗余机械臂的新型冗余解析方法。 其他说明:本书分为七章,每章内容相对独立,便于读者理解。书中不仅提供了理论分析,还通过实际应用(如欠驱动船舶、冗余机械臂)验证了所提方法的有效性。此外,作者鼓励读者通过仿真和实验进一步验证书中提出的理论和技术。

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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