摘要: 用OpenDialog.FileName做参数 ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名  阅读全文
posted @ 2023-07-28 10:42 QuincyYi 阅读(247) 评论(0) 推荐(0) 编辑
摘要: // // 函数名称: FindPathFiles// 功能描述: 找指定目录下的文件// 参 数: APath : 路径名称// APropty : 属性名称(*.* | *.txt)// AFiles : 文件列表// IsAddPath: 是否增加路径// 作者: // 时间: // 返 回  阅读全文
posted @ 2023-07-28 10:41 QuincyYi 阅读(200) 评论(0) 推荐(0) 编辑
摘要: var Edit: TComponent;begin Edit := FindComponent("Edit1"); If Edit is TEdit then TEdit(Edit).Text := '你好 Delphi7';end; RTTI(RunTime Type Information): 阅读全文
posted @ 2023-07-28 10:36 QuincyYi 阅读(129) 评论(0) 推荐(0) 编辑