{ 1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。 2、MD5String为加密字符串。 3、MD5File为加密这个文件。 4、MD5Print是将加密后的密文转换成字符串。 5、MD5Match是用来比较密文是否一致。 加密字符串aaa&nb 详细介绍...

type   orgVO=record    PK_DEPART:string;    DEPCODE:string;    DEPNAME:string;    DEPTDESC:string;    DEPPHONE:string;    DEPADDR:string;    PARENTID:string;  &n 详细介绍...

我们在编程的过程中，特别是开发和财务相关的应用程序的时候，几乎都会遇到要将阿拉伯数字(一般是货币金额)转换为中文大写的要求。也有一些转换程序，但大都不符合财务实际要求，比如最简单的： function xd(xx:currency):string; var dx,ws:string;  　i,cd:integ 详细介绍...

function NumToChar(const n: Real): string;   //可以到万亿，并且可以随便扩大范围   const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分';         cCha:array[0..1, 0..12]of str 详细介绍...

软件的安全性是个永恒的话题，一直困扰着人们，程序员们常常因此熬夜。Novell 公司的网络操作系统NetWare 以其完善可靠的安全管理机制著称，为实现用户登录的安全性和防止非法入侵者闯入，系统提供了几种有效的限制措施和检测功能。本文讨论如何建立完善的软件注册安全 详细介绍...

主要函数为: function getPY(hzchar:string):char; begin case word(hzchar[1])shl 8+word(hzchar[2]) of $B0a1..$B0c4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:result:='E'; $B7A2..$B8C0:result:= 详细介绍...

基本算法（用 PASCAL 描述） 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a< b then swap(a,B); l 详细介绍...

unit BitmapResize; interface uses 　Windows, Classes, SysUtils, Graphics; const PixelCountMax = 32768; type 　PRGBTripleArray = ^TRGBTripleArray; 　TRGBTripleArray = array [0..PixelCountMax - 1] of TRGBTriple; procedure ResizeBicubic(Src: TBitma 详细介绍...

　 　　一、正则表达式概述 　　　　二、正则表达式在vbscript中的应用 　　　　三、正则表达式在javascript中的应用 　　　　四、示例 　　　　五、总结 　　 　　　　一、正则表达式概述 　　　　如果原来没有使用过正则表达式，那么可能对这个术语和概念会不 详细介绍...

function QuickPos(const Substr, S: WideString; MatchesIndex: Integer = 1): Integer; function QuickPosBack(const Substr, S: WideString; MatchesReverseIndex: Integer = 1): Integer; 主要用途是搜索字符串中第n个Substr。 经过测试，这2个函数的速度比直接用P 详细介绍...