摘要: 开源地址: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 阅读(46) 评论(0) 推荐(0) 编辑
摘要: updatetext功能说明: updatetext的功能为:更新当前的text,ntext,image字段, 当我们可以使用updatetext更新列中的部分数据 updatetext语法简介: 参数说明 BULK: 是否采用二进制数据流,非采用二进制数据流,此参数无需输入 table_name. 阅读全文
posted @ 2023-12-21 17:31 lucken 阅读(40) 评论(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 阅读(537) 评论(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 阅读(48) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2023-09-02 10:38 lucken 阅读(15) 评论(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 阅读(53) 评论(0) 推荐(0) 编辑
摘要: 在Delphi xe中可以直接使用 TIdHashSHA256 来实现SHA256算法,代码如下uses IdHashSHA, IdSSLOpenSSLHeaders; var SHA256 : TIdHashSHA256; SHA256 := TIdHashSHA256.Create; Passw 阅读全文
posted @ 2023-08-16 17:37 lucken 阅读(130) 评论(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 阅读(24) 评论(0) 推荐(0) 编辑
摘要: 一 前言 对于正则表达式,相信很多人都知道,但是很多人的第一感觉就是难学,因为看第一眼时,觉得完全没有规律可寻,而且全是一堆各种各样的特殊符号,完全不知所云。 其实只是对正则不了解而以,了解了你就会发现,原来就这样啊正则所用的相关字符其实不多,也不难记,更不难懂,唯一难的就是组合起来之后,可读性比较 阅读全文
posted @ 2023-08-16 17:22 lucken 阅读(199) 评论(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 阅读(31) 评论(0) 推荐(0) 编辑