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