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