关于Delphi中二维数组的声明和大小调整
这是一个实例：
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;
声明一个二维数组的方法是用 array of array of 类型 这很贴近人们的思维方式。同理可推出三维数组的声明方法为 array of array of array of 类型
对二维数组大小的调整仍然使用SetLength函数，第一个参数是数组名称，第二个参数是最靠近数组名称那个维度的大小，第三个参数是远离数组名称的维度的大小，以此类推。
在以上的例子中还有一个特别之处。就是声明了一个大一点范围的二维数组以后，如果对数组重新分配大小，并且这个新的大小是小于原来数组的，那么，大的二维数组与小的二维数组之间相差的部分将会被清除。即便是马上将数组大小调整回来甚至更大，都不能使这些数据回来。这个和Delphi中提供的TStringGrid控件不一样。对TStringGrid的行列数量进行调整后，原来的数据都不会丢失，除非使用TStringGrid.Rows.Clear;
另外，Delphi中还允许设置非矩阵型的动态数组。以下是一个例子
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,10);
setlength(arr[2],5);
arr[2,4]:='this is a test';
showmessage(arr[2,4]);
showmessage(arr[3,1]);
end;
这里面声明了一个二维字符串数组arr，首先对这个数组的第一维度（按照习惯，称之为“列”）进行设置，大小为10个。然后将这个数组的第三列（下标是2，但实际却是第三列）的行数进行单独设置，大小为5个。这样就构成了下图这样的矩阵
N N X N N N N N N N
N N X N N N N N N N
N N X N N N N N N N
N N X N N N N N N N
N N * N N N N N N N
(“X” 代表可用 “N”代表不可用 “*”代表arr[2,4]元素)
然后对arr[2,4]进行赋值“this is a test”。先要求显示arr[2,4]的值，OK，完全没有问题，但到了arr[3,1]的时候却报错，原因就是这个二维数组不是矩阵形式，除了第三列，其他地方都是不存在的，尽管已经声明了。
相关文档：
delphi中的DLL中的声明原码如下：
这里声明了输出性参数分别为数字与字符类型
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + '这是传出的' ......
由于需要在窗体中设定一个日期时间，出去通用型考虑，采用了TDateTimePicker控件。
因为这个控件的默认状态只能显示日期，造成使用上的不便，所以需要做如下的设定：
在控件的format属性栏里设置如下值：yyyy-mm-dd hh:mm:ss；
设定完成后的时间为当前的系统时间，不能通过弹出日历设定，只能在文本框中设定。 ......
转:DELPHI 中如何提升进程令牌
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代� ......
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //很重要，否则，会一 ......
