文章分类 - Delphi
摘要：Python class SocialCreditCode(): def checkSocialCode(self, socialCode): ''' :param socialCode: :return: 校验是否正确 ''' if len(socialCode) == 18: realCheck
阅读全文
摘要：原文地址：https://blog.csdn.net/zhmnsw/article/details/1490587 C#中，事件是以委托的形式出现的，我们可以使用+=操作符来实现一个组件中同一事件的串联。但是，在Delphi中，事件是以procedure of Object的形式出现的，没有+=操作
阅读全文
摘要：AbsoluteDatabase 是 Delphi 下比较好用的单机数据库控件，在设计表时，要注意 String 与 WideString 字段类型的区别： 一、测试准备 用以下SQL创建测试表： DROP TABLE t1; CREATE TABLE t1 ( Id AUTOINC, EName
阅读全文
摘要：在Windows操作系统的命令提示符（cmd）中，可以通过输入特定的命令来获取系统信息。以下是一些常用的cmd命令及其获取的系统信息： 1.获取电脑设备序列号： 输入命令：wmic bios get serialnumber 输出示例：SerialNumber*************（设备号） 2
阅读全文
摘要：在使用 Format 函数对变量值进行组合、格式化时，需要注意的是，Format 函数不支持对 Variant 类型变量进行格式化。下面的代码进行时会产生“Format '%d' invalid or incompatible with argument”运行时错误。 var v: Variant;
阅读全文
摘要：procedure TForm1.Timer1Timer(Sender: TObject); var vLastInputInfo: TLastInputInfo; begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); // GetLastIn
阅读全文
摘要：Delphi在默认情况下，使用的是银行家四舍五入法。所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当舍去位的数值大于等于6时，在舍去该位的同时向前位进一；当舍去位的数值等于5时，如果前位数值为奇，则在舍去该位的同时向前位进一，如
阅读全文
摘要：用法 : 只要在工程中引用本单元，编译出的程序自动具有运行单一实例的功能 // // Unit Name: OnlyOne // Author : ysai // Date : 2013-01-05 // Purpose : 解决应用程序多实例问题 // 用法 : 只要在工程中引用本单元，编译出的程
阅读全文
摘要：在 DataModule 的 OnDestroy 事件中调用以下函数即可。 procedure TDataModule1.DoBackup; const // 主数据库 DB_FILE_NAME = 'Orders.db'; KeepBackupNums = 5; PRE = 'db'; SUFFI
阅读全文
摘要：https://www.cnblogs.com/m0488/p/3780406.html https://www.cnblogs.com/m0488/category/477792.html 使用技巧篇 1. FastReport中如果访问报表中的对象？ 可以使用FindObject方法（FindC
阅读全文
摘要：使用 OLE 方式编辑 excel 文件，只要系统中双击 .xlsx 文件可以打开，就可以用 delphi 程序编辑，版本是否兼容肉眼可见。 uses ComObj; var ExcelApp: variant; fName: string; i, iRowNum: Integer; begin t
阅读全文
摘要：Uses Windows, Registry; function GetShellFolders(strDir: string): string; const regPath = '\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell F
阅读全文
摘要：在 format 函数的格式字符串中可使用 '#13#10' 来换行，注意两侧各有一个单引号。 procedure TForm1.Button1Click(Sender: TObject); var b: Double; c: Extended; begin b := 20000/1.01; c:=
阅读全文
摘要：使用 RegisterWideCollation 注册新的排序规则即可，注册后的排序规则可以在对中文字段排序时使用： procedure TForm1.Button1Click(Sender: TObject); begin // UniDac 必须携带 sqlite3.dll 文件，32位编译器编
阅读全文
摘要：不知道什么原因，编译的 fastreport 面板中没有 frxExportImage 控件，但是可以通过代码声明并使用该控件： uses frxExportImage; procedure TForm1.Button1Click(Sender: TObject); var frxPNGExport
阅读全文
摘要：uses ShellApi; function CopyDir(const fromDir, toDir: string): Boolean; var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do beg
阅读全文
摘要：Delphi7 安装到64位操作系统上后，会出现无法启动的问题，这是由于关键目录的操作权限不够造成的，解决方法： 修改安装目录下“\Delphi7\Bin”的权限（右击上面的目录-->属性-->安全 >编辑 >修改后确定退出），赋予于users组修改权限。 修改安装目录下“\Delphi7\Proj
阅读全文
摘要：本文为作者原创作品，转载请注明出处。 作者：汉学 原文地址：https://www.cnblogs.com/c2soft/articles/13036777.html 实践中需要在 python 中生成报表，开始尝试使用 PIL 库向空报表图片中插入所需的文字，可是后插入的文字与原有文字不太和谐，后
阅读全文
摘要：1、创建资源文件 snd.rc，使用 brcc32.exe 编译这个资源文件，得到 snd.res： //rc 文件: sound1 WAVE "SoundFile1.wav" sound2 WAVE "SoundFile2.wav" 2、将 snd.res 编译进项目并播放： unit Unit1
阅读全文
摘要：原文地址：http://bcoder.com/delphi/the-summary-of-richedit-development-in-delphi 1. 设置RichEdit的行间距，代码如下 2. 为RichEdit设置行号，代码如下： 3. 根据鼠标位置定位光标的方法。 4. 使Riched
阅读全文
浙公网安备 33010602011771号