摘要:实在说,我对delphi的理解不是很深入,使用它写过一些小程序,不过鉴于borland的传奇,还是看了李维那本vcl内幕剖析,最终的感觉不是对delphi多么狂热,反而是另样的深入理解了c++的优缺点以及模式设计一些理念的深化,不过,仍旧对borland抱有尊敬,另外也羡慕那些使用delphi的人,控间好多啊,:)这个是我早期从bbs上收集的文章,暂且贴在这里,算是开门大吉
delphi以其独特......
摘要:做一个.rc的文件,里面是文本格式,内容如下:
资源名 类型 资源在windows中的文件件 mycur1 cursor 28.cur //加入光标mycur2 cursor 29.cur //加入光标mycur3 cursor 30.cur //加入光标myico1 icon ico.ico //加入图标bmp1 bitmap 1.bmpbmp2 bitmap 2.bmp
注意要把那些......
数字随机排序
假设有一组数字 1~1000,请将它们随机填充在一个数组中
要求: 【程序编程相关:
在 DB2 服务器上监控 WebSphe】 【推荐阅读:
以并行方式处理 DB2 for iSer】1.数组中无重复数字 【扩展信息:
DB2 DBA: 虚拟现实】 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 := 0 to 1000 do begin // 1001 round may not be enough
j := random(high(nums))+1;
k := random(high(nums))+1;
temp := nums[j];
nums[j] := nums[k];
nums[k] := temp;
end;
end;fishman 兄解答
我有一些新的想法,與大家共同分享.討論
...
下一页 摘要:感谢 sforever 提供帮助 hookkey: string; hhook: integer; creeper,creeper1:textfile; ahwnd,comboboxh:thandle; //句柄 qqformid:hwnd; user:array[0..254] of char; sendbody:string; psmtp,puser,ppass,pgetmail,ptomai......