DELPHI加密字串（异或运算加密）
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Result:=TmpStr;
end;
function myHexToStr(S:string):string; //16进制转字串
var
HexS,TmpStr:string;
i:Integer;
a:Byte;
begin
HexS:=s;
if Length(HexS) mod 2=1 then
HexS:=HexS+'0';
TmpStr:='';
for i:=1 to(Length(HexS)div 2)do
begin
a:=StrToInt('$'+HexS[2*i-1]+HexS[2*i]);
TmpStr:=TmpStr+Chr(a);
end;
Result:=TmpStr;
end;
然后就是加密、解密函数了：
{两个函数的参数相同，s为要加密、解密的字串；sKey为密匙}
function EncryptStr(const s:string;sKey:string):string; //加密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:byte;
begin
HexS:=myStrToHex(s);
HexsKey:=myStrToHex(sKey);
MidS:=HexS;
for i:=1 to(Length(HexsKey)div 2)do
begin
if i<>1 then MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr，所以要清空
for j:=1 to (Length(MidS)div 2)do
begin
a:=StrToInt('$'+midS[2*j-1]+midS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
tmpstr:=TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=TmpStr;
end;
function DecryptStr(const s:string;sKey:string):string; //解密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:Byte;
begin
HexS:=s;
if Length(HexS)mod 2=1 then //检查是否为字符串
begin
ShowMessage('密文错误！');
Exit;
end;
HexsKey:=myStrToHex(sKey);
TmpStr:=HexS;
MidS:=HexS;
for i:=(length(HexsKey) div 2) downto 1 do
begin
if i<>(length(HexsKey) div 2)then
MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr，所以要清空
for j:=1 to(length(MidS) div 2)do
begin
a:=StrToInt('$'+MidS[2*j-1]+MidS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
相关文档：
这是一个实例：
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
声明一个二维数组的方法是� ......
1．引言
在利用delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件的创建、编辑及修改，虽然delphi本身提供了很多设计报表的控件或方法，但是存在明显的不足，比如中文输入，数据格式的控制等操作起来比较麻烦。利用大家都很熟悉的office工具结合开发，能够很好的解决这方面的问题。以� ......
delphi TStringList的用法
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。
常规的用法大家都知道，现在来讨论它的一些高级的用法。
先把要讨论的几个属性列出来：
1、CommaText
2、Delimiter & DelimitedText
3、Names & Values & ValuefromIndex
先看第一个：CommaText。怎么 ......
常忘记，在此做笔记。
这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’ ......
DirectoryExists('C:\WINDOWS'):Boolean;检测文件夹是否存在！
FileExists('c:\Dir.txt'):Boolean;检测文件是否存在！
EDIT组件
OnChange 当编辑框中的内容发生变化时触发该事件
OnKeyPress 当按下一个按键时，触发该事件
OnEnter 编辑框获得输入焦点时，触发该事件
MEMO组合
WordWrap 用于设定Momo组件是否具有自� ......
