上一页 1 2 3 4 5 6 7 8 9 10 ··· 13 下一页
摘要: 输出异常信息 代码 on <异常对象类型> do 获取异常信息 procedure TForm1.Button1Click(Sender: TObject); begin try System.Error(reAccessViolation); except on e: Exception do S 阅读全文
posted @ 2023-03-18 17:22 txgh 阅读(205) 评论(0) 推荐(0) 编辑
摘要: 安装FastReport 介绍 FastReport包含运行时包和设计时包。 设计时包的包名中有dcl前缀。 每个包都有一个编号,对应Delphi版本。 例如,dclfrx7.dpk 是 Delphi7 的设计时包。 FastReport 使用的包(* 表示 Delphi 版本): fs*.dpk 阅读全文
posted @ 2023-03-13 20:02 txgh 阅读(640) 评论(0) 推荐(0) 编辑
摘要: 报表控件介绍 FastReport VCL 概述 用于生成报告和文档的 VCL 组件集。它提供可视化模板设计器、对最流行数据源的访问、报告引擎、预览、导出过滤器到30多种格式,以及部署到云、网络、电子邮件和打印。 特征 快速可靠的报告生成引擎 以区域为导向的报表生成器。 基于代码的报表。 多页和多模 阅读全文
posted @ 2023-03-08 16:35 txgh 阅读(718) 评论(0) 推荐(0) 编辑
摘要: Library设置(Library path vs Browsing path) 选项介绍 Tools > Options > Language > Delphi Options > Library Selected Platform 指定要应用此页面上设置的目标平台。 Library path 指 阅读全文
posted @ 2023-02-21 10:29 txgh 阅读(438) 评论(0) 推荐(0) 编辑
摘要: 弹出选择目录对话框(选择文件夹) 代码 弹出Windows目录浏览器对话框 uses Vcl.FileCtrl; procedure TForm1.Button1Click(Sender: TObject); var vPath: string; begin //默认选择的目录 vPath := ' 阅读全文
posted @ 2023-02-15 09:48 txgh 阅读(1042) 评论(0) 推荐(0) 编辑
摘要: 删除目录(文件夹) 代码 调用 RmDir 删除目录 procedure TForm1.Button1Click(Sender: TObject); begin //创建测试目录 ForceDirectories('D:\测试目录1\目录1'); ForceDirectories('D:\测试目录1 阅读全文
posted @ 2023-02-04 09:36 txgh 阅读(824) 评论(0) 推荐(0) 编辑
摘要: 创建目录(文件夹) 代码 调用 MkDir 创建目录 procedure TForm1.Button1Click(Sender: TObject); begin //创建目录 MkDir('D:\测试目录1'); //如果目录存在时引发异常 try MkDir('D:\测试目录1'); except 阅读全文
posted @ 2023-02-04 09:34 txgh 阅读(507) 评论(0) 推荐(0) 编辑
摘要: 获取临时文件目录(文件夹)和文件 代码 调用Winapi方式 procedure TForm1.Button1Click(Sender: TObject); var vPath, vFile: array [0 .. MAXBYTE] of Char; begin //获取临时文件路径 GetTem 阅读全文
posted @ 2023-01-17 10:15 txgh 阅读(713) 评论(0) 推荐(0) 编辑
摘要: 获取Unix 时间戳 代码 uses System.DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin //获取当前时间的 Unix 时间戳 Memo1.Lines.Add(IntToStr(DateTimeToUnix( 阅读全文
posted @ 2023-01-12 14:59 txgh 阅读(388) 评论(0) 推荐(0) 编辑
摘要: 计算运行时间(耗时) 代码 var vTick: DWORD; begin vTick := GetTickCount; //计算运行时间的代码... Application.MainForm.Caption := Format('耗时:%f 秒', [(GetTickCount - vTick) 阅读全文
posted @ 2023-01-04 14:06 txgh 阅读(363) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 8 9 10 ··· 13 下一页