txgh

摘要： 输出异常信息 代码 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) 阅读全文