2008年7月19日

Object Pascal的指针

摘要： 大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时，这种说法也让很多人产生误解，似乎只有C语言的指针才能算指针。Basic不支持指针，在此不论。其实，Pascal语言本身也是支持指针的。从最初的Pascal发展至今的 Object Pascal，可以说在指针运用上，丝毫不会逊色于C语言的指针。 以下内容分为八个部分，... 阅读全文

posted @ 2008-07-19 22:58 白兴科技 阅读(129) 评论(0) 推荐(0) 编辑

delphi基本算法

摘要： 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod B); end; 求两数的最小公倍数 function lcm(a,b:integer):integer; begin if a0 do inc(lcm,a); end; ... 阅读全文

posted @ 2008-07-19 22:57 白兴科技 阅读(308) 评论(0) 推荐(0) 编辑

通用单进度条构件单元

摘要： unit uProgressBar; { *********************************************************************** * 即插即用的绿色代码　通用单进度条构件单元 Copyright(C) 月夜风筝 2007 * QQ-EMial: 14574256@163.com * 创建时间：07-04-27 ***************... 阅读全文

posted @ 2008-07-19 22:50 白兴科技 阅读(221) 评论(0) 推荐(0) 编辑

P2P 之 UDP穿透NAT的原理与实现(转载)

摘要： 参考：http://midcom-p2p.sourceforge.net/draft-ford-midcom-p2p-01.txt 论坛上经常有对P2P原理的讨论，但是讨论归讨论，很少有实质的东西产生（源代码）。呵呵，在这里我就用自己实现的一个源代码来说明UDP 穿越NAT的原理。 首先先介绍一些基本概念： NAT(Network Address Translators)，网络地址转换：网... 阅读全文

posted @ 2008-07-19 22:48 白兴科技 阅读(367) 评论(0) 推荐(0) 编辑

取汉字的机内码、UniCode码

摘要： Function MacCode2Chinese(AiUniCode : Integer) : String; Var ch, cl : Integer; Begin ch := AiUniCode Div 256; cl := AiUniCode Mod 256; Result := Chr(ch) + Chr(cl); end; //汉字 -> 机内码 Function Ch... 阅读全文

posted @ 2008-07-19 22:46 白兴科技 阅读(525) 评论(0) 推荐(0) 编辑

Web1.0及WEB2.0的比较

摘要： Web1.0及WEB2.0的比较 WEB2.0概念诠释 Web2.0，是相对Web1.0（2003年以前的互联网模式）的新的一类互联网应用的统称，是一次从核心内容到外部应用的革命。由Web1.0单纯通过网络浏览器浏览html网页模式向内容更丰富、联系性更强、工具性更强的Web2.0互联网模式的发展已经成为互联网新的发展趋势。 Web1.0到Web2.0的转变，具体的说，从模式上是单纯的“读”向... 阅读全文

posted @ 2008-07-19 22:42 白兴科技 阅读(1317) 评论(0) 推荐(0) 编辑

Copyright © 2024 白兴科技
Powered by .NET 9.0 on Kubernetes