T2OqV3qDOzaQ
functionValidateEnterpriseCode(EnterpriseCode:string):Boolean; var i,sum,code,weight:Integer; begin Result:=False; //企业信用代码长度校验 ifLength(EnterpriseCode)<>18then Exit; //企业信用代码权重因子 constfactor:array[1..17]ofInteger=(1,3,9,27,19,26,16,17,20,29,25,13,8,24,10,30,28); //计算企业信用代码前17位的加权和 sum:=0;...
这是我看到过的最详细的介绍了。 https://zelig.cn/delphi/202302/110.html
Unigui可以使用WebSocket进行客户端之间的实时互相发消息。WebSocket是一种支持双向通信的网络协议，可以使客户端和服务器之间实时地进行数据交换。现在的uniGUI最新版本，经过几个版本的迭代，已经完美支持WebSocket。 用起来，也非常简单，默认情况下，已经打开WebSocket。 打开demos中的第一个例子： C:\ProgramFiles(x86)\FMSoft\Framework\uniGUI\Demos\Desktop\WebSocket-Basic 在Main单元，可以看到： 1.如何广播一个消息： BroadcastMessage('messag...
usessystem.RegularExpressions; functionIsChineseName(constaName:string;constaMaxLength:Integer=10):Boolean; begin //只检查基本汉字： //varPattern:='^[\x{4E00}-\x{9FA5}]{2,'+aMaxLength.ToString+'}(·[\x{4E00}-\x{9FA5}]{2,'+aMaxLength.ToString+'}){0,2}$'; //检查下面所有内容： //基本汉字4E00-9FA5 //基本汉字补充9FA6-9FCB //扩展A34...
感谢xalion，为我们详细写的文档《一步一步实现kbmmw的httpsys使用https功能》，以下为原文： kbmmw的httpsys的功能已经实现了好长时间，但是现在各个平台都要求使用https来提供服务。今天一步一步来说一下如何使用kbmmw 的httpsys功能支持https.首先为了获得证书，我们可以使用阿里云申请一个免费的证书。登录阿里云，选择免费版，0元购入。 购买成功后，就会在控制台显示购买的证书，证书颁发成功后，就可以下载证书了 选择下载 我们下载IIS 证书，然后保存。运行 certlm.msc&nb...
不知什么原因，Delphiide的工具条显示错乱了，点打开单元的按钮也不好用，在界面上怎么设置也不好用，挺长时间了，今天看盒子里有人说通过操作注册表的方法，能解决，试了一下，果真好用。具体操作方法： 1.打开注册表，找到下面项 计算机\HKEY_CURRENT_USER\SOFTWARE\Embarcadero\BDS\22.0\Toolbars 2.把Toolbars删除！ 3.重新进入Delphi，问题解决！ 如下图的状态 删除后，工具条恢复了！
公司有个项目，需要实现自启动的功能，本来想着是设置桌面启动器的方式去实现，但是设备是华为平板（EMUI系统），不允许设置第三方桌面 且监听开机广播也无效，本来以为没法实现了，没想到公司的另一款APP确实支持，于是便是研究了下，发现监听开机广播的方式，还需要加上个悬浮窗权限即可实现功能 然后也是趁着机会来总结下 方法1（启动页）在AndroidMainfest中，将首页的Activity设置一下属性即可 <activity android:name=".MainActivity" android:exported="true"> <intent-filter> <...
//为什么会这样呢？类似于下面这样的代码不能生效。 MyLbl:=Ttext.Create(self); MyLbl.Parent:=VscrbMenuBtn; //MyLbl.Font.Size:=20; MyLbl.TextSettings.Font.Size:=20; MyLbl.Size.PlatformDefault:=false; MyLbl.TextSettings.Font.Style:=[TFontStyle.fsBold]; MyLbl.Margins.Left:=20; MyLbl.Align:=TAlignLayout.Top; MyLbl.TextSetting...