摘要：一、时间格式转换 CurrentDateStr:=FormatDateTime('YYYYMMDD',NOW());//转换成字符串类型二、数值格式转换 Format('%.2f',[(strtoint(BankFundBalanceStr)/100.0)]);//转换成有两位小数的字符串类型判断数据库中对象是否存在：select * from sysobjects where name='Bank_NewOrder'整数、小数处理http://www.cnblogs.com/JonyOang/archive/2010/05/13/1913628 阅读全文

摘要：一、按整型格式存储，强转成整型格式显示var arrForInteger:array[1..4] of Char;//也可以是 arrForInteger:array[0..3] of Charbegin ShowMessage('测试类型强转！'); PInteger(@arrForInteger)^:=1234567; //以整型格式存入 ShowMessage('字节数组强转成整型格式：'+IntToStr(PInteger(@arrForInteger)^)); //强转成整型end;运行结果：二、按整型格式存储，强转成字符数字格式显示var arrFo 阅读全文

摘要：分类范围字节备注简单类型序数整数Integer-2147483648 .. 21474836474有符号32位Cardinal0 .. 42949672954无符号32位Shortint-128 .. 1271有符号8位Smallint-32768 .. 327672有符号16位Longint-2147483648 .. 21474836474有符号32位Int64-263 .. 2638有符号64位Byte0 .. 2551无符号8位Word0 .. 655352无符号16位Longword0 .. 42949672954无符号32位字符AnsiChar(Char)ANSI字符集8位Wide 阅读全文

摘要：一、纯回调函数 定义回调函数的原型：指明函数参数类型和返回值类型1 type2 TCallBackFuncType = function(RequestStr:string):boolean; stdcall; //定义回调函数原型 定义某个具体的全局函数，并指明是回调函数 1 function ThreadCallBackFunc(RequestStr:string):boolean;stdcall; 2 3 implementation 4 5 function ThreadCallBackFunc(RequestStr:string):boolean;stdcall; 6 begin 7 阅读全文

摘要：一、加解密算法在网络通讯中的作用 a）使通讯信息不被第三方看到 报文加密：可采用DES或3DES算法DES和3DES算法可逆，接收方可通过密钥将密文还原 以下是使用第三方提供的dll中的DES算法进行报文加密： 1 #include 2 #include "des3.h" 3 #include "h... 阅读全文

摘要：一、VC程序调用VC编写的导出函数 a)定义 1)创建dll工程 2）在工程下添加源程序文件，并编写代码 源代码如下：1 _declspec(dllexport) int IntPlus(int a,int b)2 {3 return a+b;4 } 编译运行生成dll b)调用 1)创建普通的控制台工程并将要使用dll和lib文件拷贝至工程目录下 2）工程设置中，生命要使用的lib文件 3)编写源代码 1 #include<iostream> 2 using namespace std; 3 4 extern int IntPlus(int a,int b); 5 6 int m 阅读全文

摘要：一、Server端 使用的indy控件：idtcpsrvr1: TIdTCPServer; a）设置默认端口1 begin2 Self.btn1.Enabled:=False;3 idtcpsrvr1.DefaultPort:=2001;4 idtcpsrvr1.Active:=True;5 end; b）对客户端连接事件响应1 procedure TForm1.idtcpsrvr1Connect(AThread: TIdPeerThread);2 var3 ipStr:string;4 begin5 ipStr:=AThread.Connection.Socket.Binding.PeerI 阅读全文

摘要：MD5加密算法: 方式一:var md5: TMD5Digest; //MD5Unit.pas passwordSource:string; passwordDestinate:string;begin passwordSource:='testStringForMD5'; MD5String(passwordSource, @md5); passwordDestinate:= LowerCase(MD5DigestToStr(md5)); ShowMessage(passwordDestinate);end; 运行结果： 注：MD5Uni... 阅读全文

摘要：A)返回结果为参数 var Cn:TAdoConnection; Sp:TAdoStoredProc; recordCount:string; begin Cn := TAdoConnection.Create(nil); try Cn.ConnectionString := [数据库连接字符串]; Cn.LoginPrompt := False; Cn.KeepConnection := True; Cn.ConnectionTimeout:=2; try... 阅读全文

摘要：一、几个字符串处理的基本函数 a)子串定位——获取子串在原字串中的位置(不是数组下标，而是第几个)1 function pos('子串'，'原字符串')：integer 说明：当有中文时，最好这样用：pos('子串'，wideString('原字符串')),这样可以避免前一个汉字的后半部分和后一个汉字的前半部分 也恰好能构成一个汉字时出现问题。 b)子串截取——拷贝出原字符串中的部分子串(Index不是数组下标，而是第几个) 1 function Copy(S; Index, Count: Integer)：string 说明：其 阅读全文