摘要：
假设有一组数字 1~1000,请将它们随机填充在一个数组中要求：1、数组中无重复数字2、整个程式运算很快！
william 兄解答var
nums: array[1..1000] of integer;
i,j,k,temp: integer;
begin
for i := low(nums) to high(nums) do
nums[i] := i;
for i :=......
摘要：
该示例演示了一个字符串扩展splitex例子，文章内含源代码。
......
Delphi的接口陷阱
delphi的接口陷阱
陷阱一.接口的类型转换陷阱 【程序编程相关:
获取TBitMap图像缓冲区，提高图像处】
现在我所知的有两大陷阱: 【推荐阅读:
Thread类的创建及使用】
b) 当把一个对象变量赋给一个接口变量,在把这个接口变量赋还给对象变量时,这个对象变量的地址已经变了,也就是不再是原来的对象了,而是指向一个错误的地址. 【扩展信息:
基于阻塞Socket的远程控制类库-TN】
a) 不能把一个对象引用强制转换成这个引用的类型没有声明实现的接口,即使这个对象实际实现了这个接口（呵呵,优点拗口）.
例如:
i1 = interface function do: boolean; end;
tc1 = class att1: integer; end;
tc2 = class(tc1, i1) att2: integer; function do: boolean; end;
intf1: i1;
obj1: tc!;
obj2: tc2;
obj2 := tc2.create; obj1 := obj2. i1(obj2).do;正确. i1(obj1).do;编译失败.
因为obj1的类型tc1没有声明实现i1所以不能转换成i1,即使obj1确实实现了i1.
还有,如果把对象转为接口再转回来也会有问题.
obj2 := tc2.create;
obj2.att1 := 0; intf1 := obj2;//正确.
obj2 := intf1;
tc2(intf1).att1 := 0; //运行期非法地址访问错误.
obj2.att1 := 0; //运行期非法地址访问错误.
也就是,从对象引用转换成指针引用后,地址改变了,但是由指针引用再转回对象引用时地址没有变回来（delphi的bug?）.
陷阱二.接口的生存期管理
依据我的常识（此处是编程常识,不是delphi使用常识）来讲,我认为接口是不需要生存期管理的,因为接口根本不可能生成真正的对象.但是delphi却又一次打击了我的常识（咦,为什么要说“又”呢?）,它的接口是有生存期的,而且必须实现以下三个方法:
function queryinterface(const iid: tguid; out obj): hresult; stdcall;
function _addref: integer; stdcall;...
下一页 摘要：
在delphi7中如果使用了getmodulename这样的windows函数,如果在help中查是在system单元中,但是在uses中加入system后会出现“identifier redelcared”的错误.
把system改为windows后,编译输出正常.
......
