取绝对值:取Run下所有值(原创)
procedureTForm1.FormCreate(Sender:TObject);varnum1,num2:eger;reg:Tregistry;nums1:Tlist;nums2:Tlist;I:eger;beginlist.Clear;nums1:=Tlist.Create;nums2:=Tlist.Create;reg:=Tre... [阅读全文]
delphi面向对象:DELPHI面向对象支持特点--保护级类成员的应用
今天在CSDN论坛里面游逛，发现这样的一个帖子《刚才看到一位武林高手的几行精妙代码，百思不得其解，希望各位指点》，本着向各大武林高手学习的态度，我看完了整个帖子，发现内容甚为经典，记录于此，作个总结：type TStringGridEx = class(TStringGrid);procedure TForm1.Button1Click(Sender: TObject);begin i... [阅读全文]
delphi2006:李维看Delphi2006(DeXter)
Delphi 2006 !(Dexter) 随着Dexter推出的日子逐渐接近，Dexter的Beta测试也进入了如火如荼的阶段，目前Dexter的状态是第4个Beta，我也好久没有看到Borland的产品会有Beta 4了(Delphi 8/Delphi 2005是Beta 3之后便被下令推出)，而且Dexter还有好几个月的时间继续进行稳定性，延展性以及效率的调整，这实在是令人高兴... [阅读全文]
js绑定数据库数据:datatree和数据库绑定的最少代码
unit mmslibrarypage;erfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, VirtualTrees, ComCtrls, ToolWin, mpToolBar,bas... [阅读全文]
treeviewcheckbox:怎么让TreeView前面显示CheckBox
我的主页: http://www.tommstudio.com/下面的代码可以让Treeview前面显示CheckBox.constTVS_CHECKBOXES = $00000100;procedure SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean);varStyle: Integer;... [阅读全文]
数据表:数据表的二维表存储及定位
工作中常遇到二维表的存储及定位问题,通常我们会用EXCEL来存储,在数据库中如何实现二维表的存储和定位呢?首先,我们建立二维表,以下二维表为例二维表直径0-300300-500500-10001000-1500160.50.80.90.6400.71.01.11.2601.51.61.71.8802.12.22.32.41003.12.52.62.7上表中,0-300,..,1000... [阅读全文]
delphi资源文件:用Delphi实现文件下载的几种方法
我主页: http://www.tommstudio.com/笔者最近开发系统中需要写个下载文件功能以前用BCBAPI写很烦琐忽然想起有个API就可以搞定了于是大早就来搜索这个API就是UrlDownloadToFile不仅如此Delphi些Control控件也可以轻松实现下载如NMHTTP指定NMHTTP1.InputFileMode ... [阅读全文]
类和对象:如何根据类的名字来生成对象
参考：[http://www.CrazyCoder.cn/]有时候我们可能在程序中需要动态去生成一些对象，但我们又不想写大量的case分支语句来实现，而是建一张表，根据类的名称或其他一些索引来生成类的实例——对象。如果你有这方面的需要，本文将会帮助你实现这一目的。参考：[http://www.CrazyCoder.cn/]在写正文之前首先要引进一个概念，类的变量（自己起的准确不准确无所... [阅读全文]
数据表:ADO方式下判断数据表是否存在
前段时间做个管理系统时候,个朋友问我不用数据库,用EXCEL可以做不,当时在做过程中出了些问题,就想现在说到这样,我在判断数据是否存在时候有些问题,现在在网上找了点资料,整理后贴在这里.下面构造两个可重载用于在ADO方式下判断数据库数据表是否存在//:Function TableExist( pAdoCmd: TADOCOMMAND; p... [阅读全文]
罗技光电劲貂:[Delphi版]罗技无限灵貂,驱动程序补丁－实现真正的多媒体播放器！附QQ图标伪装程序
[Delphi版]罗技无限灵貂,驱动补丁－实现真正多媒体播放器！附QQ图标伪装██████████ QQ图标伪装 将 QQ 聊天窗口标题栏中 “和 某某 聊天” 变成 “我文档 某某”而且聊天窗口图标变成 Word 文档图标托盘中图标在区别状态时也变成其它图标:例如在线＝网络驱动器、离开＝软盘驱动器、隐身＝硬盘驱动器、离线＝断开网络驱动器... [阅读全文]
delphihint:Delphi的Hint(2)
上篇介绍了H简单应用这篇将给出个定制H窗口例子这个自定义H窗口效果不错以玻璃为边框并且有阴影效果不过这的前我们必须介绍个如何定制H父类为THWindow在Controls单元中定义我们看看几个虚拟思路方法CreateParams设定窗口风格我们要覆盖掉它使其没有边框NCPa画窗口边框我们也要覆盖它我们不需要边框吗Pa比较重要为画H窗口客户... [阅读全文]
导出excel:一个导出Excel非常快的类
unit DBGridEhToExcel;erfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, Sh... [阅读全文]
托盘程序初始化失败:创建具有托盘的服务程序
我主页: http://www.tommstudio.com/Windows 2000/XP和2003等支持种叫做\"服务\"东西.作为服务启动有以下几个好处: (1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它.笔者在2003年为公司开发机顶盒项目时候,曾经写过课件上传和媒体服务,下面就介绍下如... [阅读全文]
quot是什么意思:創建一個簡單的"專家"
=Title這個單元可以編譯到個包中的後它可以出現在Delphi幫助菜單中注:在Interfaceuses 語句中加入ToolsApi.type TSDCSimpleExpert = (TNotierObject, IOTAMenuWizard, IOTAWizard) public function GetIDString: ... [阅读全文]
rs232串口通讯程序:RS232串口通讯模块
应为工作需要自己编写RS232通讯模块该模块已经编写了蛮久在实际使用中可能有没有考虑和不完善地方//=//如果使用该模块请保留该注释如果被修改或编辑请将修改后代码发送份给我//编写:戴琪英//E_Mail:[email protected]//2000-09-01//=unit R232Comm;erfaceuses Windows,Sy... [阅读全文]
delphi颜色:用Delphi做一个有颜色属性的按钮
用Delphi做一个有颜色属性的按钮... [阅读全文]
delphi服务程序:用Delphi创建服务程序
Windows 2000/XP和2003等支持种叫做\"服务\"东西.作为服务启动有以下几个好处:(1)不用登陆进系统即可运行.(2)具有SYSTEM特权.所以你在进程管理器里面是无法结束它.笔者在2003年为公司开发机顶盒项目时候,曾经写过课件上传和媒体服务,下面就介绍下如何用Delphi7创建个Service.运行Delphi7,选择... [阅读全文]
firebird:在Firebird里如何防止空值扩散
在统计、计算、合并数据时空值扩散问题有时不经意冒出来不小心就会导致结果出错 我举个例子 有个成绩表achieve,有 4个字段:yuwen、shuxue、yingyu、total分别用来存储语文、数学、英语及总分现在要计算学生总分现写出如下SQL语句: update achieve ... [阅读全文]
delphi永不消失的精灵:Delphi----永不消逝的精灵
Delphi爱好者们你们好 看到这么多人对Delphi情有独钟作为个Delphi老战士我倍感后继有人也因此而欣慰无比 Borland公司是家有着世界上最优秀工程师和最糟糕管理者公司我爱Borland她优秀令微软望尘莫及技术；我恨Borland她总是在每个紧要关口由于领导人失误次再次错失良机 百年不可遇天才Ander... [阅读全文]
delphi源代码:Delphi代码标准文档
Delphi代码标准文档Revision 1.0.0.5编者:Riceball([email protected])本文主要基于“Delphi Development Guide”书代码标准部分而来编者参考其它Delphi代码标准规范标准以及结合现目前Delphi社区中流行书写惯例作了些修改和裁剪你也可以根据自己需要进行裁剪和修改如果你... [阅读全文]
twebbrowser:Delphi的TWebBrowser编程综述
Delphi3开始有了TWebBrowser构件不过那时是以ActiveXControl控件形式出现而且需要自己引入在其后4.0和5.0中它就在封装好shdocvw.dll的后作为Internet构件组的出现在构件面板上了常常听到有人骂Delphi帮助做得极差这次TWebBrowser又是Microsoft东东自然不会好到哪里去虽说MSD... [阅读全文]
flash调用外部文件:再谈后台调用外部程序的完美实现
上次介绍了如何在Delphi中使用发送消息方式控制外部开始我在自己项目中也确实是这么做但是后来遇到了这么个问题:我所会在执行段处理过程中将结果显示到个ListView中那么为了知道我发出命令到底被那个执行后结果如何我就必须监视ListView中内容察看最后出现结果文字是什么从而知道到底是成功还是失败了那么我想法是不断查询ListView中... [阅读全文]
ondbclick:关于TButton类型不能响应OnDBClick事件
TButton类型不能响应鼠标双击事件即使用了显式声明,如:TxyButton = (TButton)published property _disibledevent=查了下源代码:procedure TControl.WMLButtonDblClk(var Message: TWMLButtonDblClk);begin Send... [阅读全文]
delphi文件路径:DELPHI中数据文件路径的管理
Delphi中TableControl控件(Component)和queryControl控件都需要有个DatabaseName属性可以用DatabaseName属性来指定该Control控件所引用数据表路径有两种思路方法可以为属性DatabaseName设置路径:第种思路方法是直接输入数据表所在路径另种思路方法是使用数据库别名(Alia... [阅读全文]
vmware虚拟机:检测你的程序是否运行在虚拟机(VMware)
//------------------------------------------------------------------构建个,使用了汇编语言啊,嘿嘿!// -------------------开始-----------------------------------------function IsVMwarePres... [阅读全文]
OTA:使用本地IDE对象[D4]
访问本地IDE对象起始工作就是INTAServices对象采用这个接口向Image List增加图片向Action List增加动作向 Menu 增加菜单项向工具条增加换钮当向导被释放时它必须清现它创建对象但是不能删除它添加到Image List中图片删除图片可能会影响到这个向导的后索引内容下面主题描述了如何实现这些任务:添加个图片到Im... [阅读全文]
breakcontinue:使用break与continue语句和for与continue语句
unit UDemo33;//使用和continue语句和for和continue语句//※ 利用while循环和语句求前多少个自然数(项数)平方的和大于指定正数//※ 利用for循环和continue语句在26个小写字母中依次选择其ASCII为偶数字母// 组成串//求项数算法://声明局部整体变量:i表示循环变量Sum表示求... [阅读全文]
fastreport:序列化FastReport
原本在开发个报表插件,需要远程传输,因此需要序列化报表,序列化FastReport有两种方式, 1.仅序列化数据,由客户端接受到数据,并呈现报表,这种方式需要在客户端存储报表格式文件xxx.Frf, 2.序列化FastReport结果集(即,得到数据后可以存成frp文件),这样frf文件不需要在客户端存在.我倾向于采用这种方式,毕... [阅读全文]
tchart:TChart使用经验小结
1、问题:通过Addxy思路方法给TChart添加标记(Mark)时发现在TChart横坐标会随着Mark而变化后来发现通过以下思路方法可避免这种情况:双击TChart点击Axis- top or bottom -labels在styles中将labels形式改为Value即可！2、几个有用属性: 图表上每个点都是有索引就象... [阅读全文]
mf8581:用Delphi开发DLL来代替8581协议控制和采集华为PSM—A10电源(二)
匹配地址:交流模拟量 11个 cid1=40 cid2=41 个交流屏 两路交流 I是所得到包头 7E 回报350包偏移 内容 返回报地址 30-31 输出电流A I+85~I+92 32-33 输出电流B I+93~I+100 34-35 输出电流C I+101~I+108 36-37 1路交流A相电压 I... [阅读全文]
