![](https://img-blog.csdnimg.cn/20201014180756922.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
编程
DelphixpeFan
这个作者很懒,什么都没留下…
展开
-
delphi 2010 下的一个字符串加密函数,可对中文进行加/解密
function Crypt(s: String; const bEncrypt: boolean = True): String; //加、解密const mm=7; key:array[0..mm] of word=($A2,$F9,$AA,$55,$E3,$6D,$8A,$47); //这里的常量是加密异或码(作为加密密钥用的),可自行修改。var i, L : DWord; b, k原创 2011-06-17 17:31:00 · 2584 阅读 · 0 评论 -
返回本机的Ip地址
uses winsock;{=================================================================功 能: 返回本机的Ip地址参 数: 无返回值: 成功: Ip 失败: 备 注:版 本: 1.0 2011/06/06 21:05:00=================================================原创 2011-06-18 08:41:00 · 788 阅读 · 0 评论 -
显示气球提示框
{=================================================================功 能: 显示气球提示框参 数: Control: 控件; Icon: 显示图标; Title: 标题; Text:提示信息返回值: 无备 注:版 本: 1.0 2011/06/06 21:05:00==================================原创 2011-06-18 08:47:00 · 897 阅读 · 0 评论 -
delphi动态调用oracle存储过程
{=================================================================功 能: 登录信息检测参 数: pUserInfo: 用户信息记录;ErrorMessage:返回信息;Flag:0为登录,1为退出返回值: -1:存储过程执行错;0:成功;1:账户名错;2:密码错;3:同一账户同时登录备 注:版 本: 1.0原创 2011-06-17 17:41:00 · 1130 阅读 · 0 评论 -
通过生日计算X岁X月X天,并计算距离生日的天数
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DateUtils, StdCtrls, ComCtrls;type TForm1 = class(TForm) Da原创 2018-02-07 16:19:52 · 1345 阅读 · 0 评论