摘要：
开源地址：https://github.com/sempare/sempare-delphi-template-engine program Example;uses Sempare.Template;type TInformation = record name: string; favourit 阅读全文
posted @ 2024-04-23 13:56
lucken
阅读(65)
评论(0)
推荐(0)
摘要：
updatetext功能说明: updatetext的功能为:更新当前的text,ntext,image字段, 当我们可以使用updatetext更新列中的部分数据 updatetext语法简介: 参数说明 BULK: 是否采用二进制数据流，非采用二进制数据流，此参数无需输入 table_name. 阅读全文
posted @ 2023-12-21 17:31
lucken
阅读(66)
评论(0)
推荐(0)
摘要：
Delphi:cxGrid的使用方法 1. 去掉cxgrid中抬头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsview的footer=ture然后在cxGRid1 阅读全文
posted @ 2023-09-23 11:49
lucken
阅读(869)
评论(0)
推荐(0)
摘要：
function MyCreateDir(const Path: String): Boolean; begin // 建目录 if DirectoryExists(Path) then Result := True else Result := ForceDirectories(Path); en 阅读全文
posted @ 2023-09-19 14:27
lucken
阅读(57)
评论(0)
推荐(0)
摘要：
uses AnsiStrings; Function JiaMi(Src:String; Key:String):String; var KeyLen :Integer; KeyPos :Integer; offset :Integer; dest :String; SrcPos :Integer; 阅读全文
posted @ 2023-08-16 17:50
lucken
阅读(72)
评论(0)
推荐(0)
摘要：
在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法，代码如下uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; Passw 阅读全文
posted @ 2023-08-16 17:37
lucken
阅读(227)
评论(0)
推荐(1)
摘要：
以下程序可直接用，拷贝就可以了，希望可以起到抛砖引玉的作用。function StrDecrypt(s: string; key: word): string;var i:byte;const fc1=2; fc2=3;begin //result[0]:=s[0]; setlength(resul 阅读全文
posted @ 2023-08-16 17:36
lucken
阅读(38)
评论(0)
推荐(0)
摘要：
一 前言 对于正则表达式，相信很多人都知道，但是很多人的第一感觉就是难学，因为看第一眼时，觉得完全没有规律可寻，而且全是一堆各种各样的特殊符号，完全不知所云。 其实只是对正则不了解而以，了解了你就会发现，原来就这样啊正则所用的相关字符其实不多，也不难记，更不难懂，唯一难的就是组合起来之后，可读性比较 阅读全文
posted @ 2023-08-16 17:22
lucken
阅读(250)
评论(0)
推荐(0)
摘要：
需要引用单元 EncdDecd ，Xe验证通过。 function EncodeFile(const FileName: string): AnsiString; var stream: TMemoryStream; begin stream := TMemoryStream.Create; try 阅读全文
posted @ 2023-08-16 17:20
lucken
阅读(37)
评论(0)
推荐(0)
浙公网安备 33010602011771号