Delphi类
田心白水
每个人在所拥有的时间里选择的“事件”,决定了他以后的生活质量。比如,在上学的年龄,您既可以选择好好学习,也可以选择逃学。在工作的时候,您既可以选择认真工作,也可以选择消极怠工。但是无论您选择的是什么,这些被选择的事件都会影响和决定你今后生活的质量。
展开
-
DEPHI 获取本地MAC
function GetNetBIOSAddress: string;var ncb: TNCB; status: TAdapterStatus; lanenum: TLanaEnum; procedure ResetAdapter(num: Char); begin fillchar(ncb, SizeOf(ncb), 0); ncb.ncb_command := Ch原创 2010-02-22 15:28:00 · 719 阅读 · 0 评论 -
DEPHI 获取本地IP
下面的过程可以列举你机器的所有IP地址,当然也包括Lan和Internet,使用方法: 用语句Memo1.Lines.Add(本机IP地址:+LocalIP);就可以 //返回本机IP地址,多个地址之间用回车换行分隔 function LocalIP : string; type TaPInAddr =转载 2010-02-22 15:24:00 · 562 阅读 · 0 评论 -
Delphi-SetLength函数及例子
━━━━━━━━━━━━━━━━━━━━━━━━━━功能说明:设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量,第二个参数为指定的长度,其取值范围在0到255之间。 参考实例: var S: String; arrText: array of Char; // 定义一个动态数组 begin SetLengt原创 2010-02-24 13:48:00 · 7375 阅读 · 1 评论 -
初步学delphi线程,找到一篇文章,强烈推荐大家看看,tthread代码分析
Delphi中的线程类 转贴于 华夏黑客同盟 http://www.77169.orgDelphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充。线程本质转载 2009-12-22 14:23:00 · 734 阅读 · 0 评论 -
DELPHI线程例子
优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化 查询语句、分页查询等途径收到明显的效果。即使是这样,也不可避免地会在查询时闪现一个带有 SQL符号的沙漏,即鼠标变成了查询等待。最可怜的是用户,他(她)在此时只能无奈地等待。遇到急性子的,干脆在此时尝试 Windows中的其它应用程序,结果致使你的数据库应用显示一大片白色的窗口。真是无奈! 本文将以简单的例子告原创 2009-12-22 15:19:00 · 1498 阅读 · 0 评论