红鱼儿 - 博客园

TmsFlexcelExports

摘要： unit TmsFlexcelExports; interface Uses Windows, System.SysUtils, System.Classes, VCL.FlexCel.Core, FlexCel.XlsAdapter, Data.DB; procedure DataSetToXLS 阅读全文

posted @ 2023-12-12 17:16 红鱼儿阅读(322) 评论(0) 推荐(0)

值得思考

摘要：阅读全文

posted @ 2023-12-04 17:15 红鱼儿阅读(382) 评论(0) 推荐(0)

GPT实现的企业信用代码校验函数

摘要： function ValidateEnterpriseCode(EnterpriseCode: string): Boolean; var i, sum, code, weight: Integer; begin Result := False; // 企业信用代码长度校验 if Length(En 阅读全文

posted @ 2023-11-24 11:16 红鱼儿阅读(289) 评论(0) 推荐(0)

GPT4生成的校验身份证函数

摘要： function ValidateIDCard(IDCard: string): Boolean; var i, sum, code: Integer; // 身份证号码前17位加权因子 const factor: array[1..17] of Integer = (7, 9, 10, 5, 8, 阅读全文

posted @ 2023-11-23 15:54 红鱼儿阅读(24) 评论(0) 推荐(0)

易博龙宣布推出RAD Studio 11.3 Alexandria(含KeyPatch/ lsuper版下载)

摘要：这是我看到过的最详细的介绍了。原文在这里！ https://zelig.cn/delphi/202302/110.html 阅读全文

posted @ 2023-10-26 15:57 红鱼儿阅读(1310) 评论(0) 推荐(0)

在Delphi中使用正则表达式校验中文姓名

摘要： uses system.RegularExpressions; function IsChineseName(const aName:string; const aMaxLength:Integer=10):Boolean;begin //只检查基本汉字： // var Pattern := '^[ 阅读全文

posted @ 2023-10-23 15:37 红鱼儿阅读(483) 评论(0) 推荐(0)

uniGUI使用WebSocket进行客户端之间的实时消息处理

摘要： Unigui可以使用WebSocket进行客户端之间的实时互相发消息。WebSocket是一种支持双向通信的网络协议，可以使客户端和服务器之间实时地进行数据交换。现在的uniGUI最新版本，经过几个版本的迭代，已经完美支持WebSocket。用起来，也非常简单，默认情况下，已经打开WebSocke 阅读全文

posted @ 2023-10-16 11:24 红鱼儿阅读(1120) 评论(2) 推荐(1)

一步一步实现kbmmw的httpsys使用https功能

摘要：感谢xalion，为我们详细写的文档《一步一步实现kbmmw的httpsys使用https功能》，以下为原文： kbmmw的httpsys的功能已经实现了好长时间，但是现在各个平台都要求使用https来提供服务。今天一步一步来说一下如何使用kbmmw 的httpsys功能支持https.首先为了获得阅读全文

posted @ 2023-09-27 12:18 红鱼儿阅读(378) 评论(0) 推荐(0)

恢复Delphi工具栏

摘要：不知什么原因，Delphi ide的工具条显示错乱了，点打开单元的按钮也不好用，在界面上怎么设置也不好用，挺长时间了，今天看盒子里有人说通过操作注册表的方法，能解决，试了一下，果真好用。具体操作方法： 1.打开注册表，找到下面项计算机\HKEY_CURRENT_USER\SOFTWARE\Emba 阅读全文

posted @ 2023-09-26 08:47 红鱼儿阅读(573) 评论(0) 推荐(0)

在fmx下动态生成的TText为什么不能调整大小及字体样式

摘要： //为什么会这样呢？类似于下面这样的代码不能生效。 MyLbl := Ttext.Create(self); MyLbl.Parent := VscrbMenuBtn; // MyLbl.Font.Size := 20; MyLbl.TextSettings.Font.Size := 20; MyL 阅读全文

posted @ 2023-09-12 12:31 红鱼儿阅读(243) 评论(0) 推荐(0)

公告