Delphi
simonhehe
这个作者很懒,什么都没留下…
展开
-
九宫格数值分组
解答网友问题, 记录如下:原始数据11,3811,3611,3711,3911,4012,3412,3512,3612,3712,3812,4013,3313,3413,3513,3613,4014,3214,3314,3414,3514,4015,3115,3215,3315,3415,4016,3016,3116,3216,39原创 2013-08-06 16:52:50 · 1952 阅读 · 0 评论 -
delphi仿IE浏览器标签页效果演示
看到有同学提问, 自己试炼了一把, 只为实现标签页效果, 未作细化和完善工作.路过的同学多多指教 --------------------------------------------------------------a.html无标题文档btnahrefbtnso单元文件unit Unit11;原创 2013-01-09 01:12:30 · 4447 阅读 · 0 评论 -
Delphi版IP地址与整型互转
直接上单元代码unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm11 = class(TForm) edt1: TEdit; btn1: T原创 2013-01-15 10:17:02 · 4488 阅读 · 1 评论 -
多个WebBrowser的按键响应
使用场景: 多个WebBrowser同时使用, 分别响应回车, 右键菜单等事件已在Delphi xe测试通过//单元文件unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls,原创 2013-01-10 09:42:08 · 2168 阅读 · 0 评论 -
delphi代码创建bde别名示例
实际应用中可能需要程序自动创建BDE别名特试建 MSsql和paradox数据库别名//单元代码unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBTables;type原创 2013-01-08 15:06:44 · 2897 阅读 · 0 评论 -
多线程实现厕所排号
看到一个帖子, 好玩, 学习着实现了一下 呵呵场景如下:公司同事排队上厕所, 如果厕所有空位, 优先考虑领导使用, 然后才是普通员工按排队顺序使用------------------------------------------------------------------------------------------------------------------原创 2013-01-06 01:42:26 · 39412 阅读 · 9 评论 -
表达式计算器
表达式计算器, 支持四则混合运算, 常量代入扩展后可实现表达式嵌套引用, 防循环调用等功能//公式解析单元unit utFormula;interface uses SysUtils, Generics.Collections;type //表达式计算器 TFormula = class private const OPE = ['+', '-原创 2012-12-23 22:18:49 · 5775 阅读 · 1 评论 -
单位换算 Delphi示例
unitConversion.XML 单位分类及对应关系 1 1000 1000000 0.00220462 1 100 1000 0.001 39.37 1 1000000 1000000000 0.000000001 61024 1 10000 1000000 0.000001 0.原创 2011-10-25 14:42:20 · 1268 阅读 · 0 评论 -
Dll窗体调用解
//Project1==========================================================================//调用窗体 Beginunit CMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F原创 2008-05-19 15:53:00 · 1455 阅读 · 0 评论 -
Delphi惹谁了?
最早的时候就有C++程序员做Win32的产品没有Delphi程序员快,不服气地说Delphi的不好,理由是Delphi只能拖拉控件,不能OOP。几年以前,当Java刚刚火起来的时候,Java程序员说Delphi不行,理由是Delphi不能开发web。后来有一本《Java与模式》的书让Java程序员大开眼界,他们常常在与Delphi程序员论战时使出撒手锏:“Delphi能用设计模式吗?”。再后来,有转载 2008-06-12 11:57:00 · 1542 阅读 · 4 评论 -
delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词
delphi中使用词霸2005的动态库XdictGrb.dll实现屏幕取词 近日来,在网上发现关于屏幕取词技术的捷径,搜索很长时间,发现实现方式以VB出现的居多,但是通过Delphi来实现的却好象没有看到,自己参考着VB的相关代码琢磨了一下通过delphi来实现的方式。 其实也差不多,唯一不同的只有一个地方就是取词对象GrabProxy的AdviseGrab这个方法,该方法的参数是转载 2008-02-28 09:36:00 · 1334 阅读 · 0 评论 -
Delphi6函数大全(5)
Delphi6函数大全5-SysUtils.pas首部 function InquireSignal(RtlSigNum: Integer): TSignalState; $[SysUtils.pas功能 说明 Kylix函数参考 例子 ━━━━━━━━━━━━━━━━━━━━━首部 procedure AbandonSignalHandler(RtlSigNum: Integer); $[S转载 2007-08-03 08:32:00 · 986 阅读 · 0 评论 -
Delphi6函数大全(4)
Delphi6函数大全4-SysUtils.pas首部 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas功能 返回浮点数类型以指定格式字符串Format转换成字符串说明 FormatFloat(,.00, 1234567890) = 1,234,567,890.00参考转载 2007-08-03 08:31:00 · 939 阅读 · 0 评论 -
delphi提取任意长度随机数
设定随机数范围, 返回数组长度, 得到一组不重复的随机数unit Unit11;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm11 = class(TForm) btn原创 2013-01-16 14:22:56 · 4008 阅读 · 1 评论 -
delphi读取webbrowse中的图片显示在Image中
delphi读取webbrowse中的图片显示在Image中==================================================aa.html 单元文件unit Unit11;interfaceuses Windows, Messages, Sys原创 2013-01-16 15:22:38 · 4310 阅读 · 0 评论 -
JFIF格式的Jpeg属性读取
JFIF格式的Jpeg属性读取, 读取了标准文件头, 其它内容结构需要逐项解析, 暂时没有做, 有感兴趣的朋友可以继续完善.procedure TJFIF.ReadAPPn;var wrd, wrd2 : word; str : string;begin wrd := GetWord; while (wrd >= $FFE1) and (wrd <= $FFEF) d原创 2013-02-17 17:07:45 · 5346 阅读 · 0 评论 -
Delphi 单例模式
单例模式简单示意, delphiXE下测试通过unit Singleton;(* 单例模式适用于辅助类, 一般伴随于单元的生命周期*)interfaceuses SysUtils;type TSingleton = class public class function NewInstance : TObject; override; class f原创 2013-07-31 10:48:17 · 2984 阅读 · 0 评论 -
修改cxgrid的分组标题
修改cxgrid的分组标题 delphi XE测试通过.单元文件unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLo原创 2013-04-26 16:29:18 · 4456 阅读 · 1 评论 -
delphi实现执勤表
按周循环排班, 员工人数及值班人数可自定义.单元文件unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm15 = class(TForm) mmo1:原创 2013-04-10 10:36:19 · 2365 阅读 · 1 评论 -
FloodFill用法记述
函数说明如下:{x,y:当前坐标Color:针对该色彩执行填充事件FillStyle:fsBorder(从当前位置开始填充,直到遇到Color),fsSurFace(当前底色和color相同时填充) }procedure TCanvas.FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);示例代原创 2013-03-26 14:53:41 · 5134 阅读 · 0 评论 -
jpeg图片压缩
一个压缩jpeg图片的过程uses jpeg;procedure ZipJPEG;var jpg: TJpegImage; bmp: TBitmap;begin jpg := TJpegImage.Create; bmp := TBitmap.Create; try jpg.LoadFromFile('c:\A.jpg'); bmp.Width原创 2013-03-01 15:53:31 · 1409 阅读 · 0 评论 -
静态/动态调用dll封装窗体(模态/非模态)
看到有网友需要这样的例子,所以写了一个. 有不对或不合理的地方请跟帖指导.delph XE下测试通过.Dll项目文件library Project10;uses SysUtils, Classes, Forms, Unit14 in 'Unit14.pas' {Form1};{$R *.res}Function EDebtMoney(H: TH原创 2013-03-14 08:47:14 · 3197 阅读 · 3 评论 -
监控指定文件夹
该功能在delphi XE + XP 下测试通过O2DirSpy.pas (该单元获取自网络){====================================================================}{ TOxygenDirectorySpy Component, v1.6 c 2000-2001 Oxygen Software }原创 2013-03-14 09:02:30 · 2297 阅读 · 0 评论 -
程序隐藏状态栏全屏显示
程序可以在隐藏状态栏全屏显示和原始状态显示之间切换unit Unit13;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm13 = class(TForm)原创 2013-02-25 11:09:49 · 1731 阅读 · 0 评论 -
OXygen DirectorySpy delphi版文件监控
下载了Oxygen Dir Watcher, 需要安装控件, 直接改成单元引用了上代码:O2DirSpy.pas{====================================================================}{ TOxygenDirectorySpy Component, v1.6 c 2000-2001 Oxygen Softwa原创 2013-02-22 10:02:54 · 2187 阅读 · 2 评论 -
Exif格式分析
学习JPEG文件格式过程中看到的高质量博文, 转载过来, 谢谢博主 [lsiyun的专栏]原文链接 目录(?)[-]JPEG格式和标志Exif中使用的标志Exif数据结构TIFF头的格式IFD图像文件目录Image file directory数据格式IFD数据结构缩略图JPEG格式缩略图TIFF格式缩略图ExifTIFF 中使用的标签转载 2013-02-20 10:16:29 · 16241 阅读 · 1 评论 -
JPEG文件编/解码详解
学习JPEG文件格式过程中看到的高质量博文, 转载过来, 谢谢博主 [我在这里WINCE/Linux/Android]原文链接: JPEG文件编/解码详解JPEG文件编/解码详解cat_ng 猫猫JPEG(Joint Photographic Experts Group)是联合图像专家小组的英文缩写。它由国际电话与电报咨询委员会CCITT(The Internation转载 2013-02-20 10:21:35 · 1377 阅读 · 0 评论 -
Jpeg图片属性读取EXIF
jpeg图片属性读取测试环境 Delphi XE主要功能代码获取自其他作者单元文件unit utJpegInfo;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type Tf原创 2013-02-16 17:09:44 · 8025 阅读 · 3 评论 -
Delphi6函数大全(3)
Delphi6函数大全3-SysUtils.pas首部 function FindNext(var F: TSearchRec): Integer; $[SysUtils.pas功能 返回继续文件搜索说明 搜索成功则返回0参考 function Windows.FindNextFile例子 ━━━━━━━━━━━━━━━━━━━━━首部 procedure FindClose(var F: T转载 2007-08-03 08:30:00 · 678 阅读 · 0 评论 -
Delphi6函数大全(2)
Delphi6函数大全2-SysUtils.pas首部 function Languages: TLanguages; $[SysUtils.pas功能 返回系统语言对象说明 通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages例子 ///////Begin Languagesprocedure TForm1.Button1Click(Sender: TObj转载 2007-08-03 08:29:00 · 702 阅读 · 0 评论 -
第六章 失去的王冠--Borland数据库工具的战役
第六章 失去的王冠--Borland数据库工具的战役在Borland的产品线中,有两个产品是较少受到瞩目的,那就是Borland从Ashton-Tate并购来的dBase系列以及昙花一现的IntraBuilder。对于Borland来说,dBase和IntraBuilder是非常可惜的牺牲品。转载 2007-07-16 22:32:00 · 1440 阅读 · 0 评论 -
第四章 未完之传奇
第四章 未完之传奇"成功产品的背后有着更多不为人知的秘密!"Chuck的秘密计划Chuck像个藏镜人。虽然他始终是Delphi最重要的三个人物之一,但是却一直不愿意站在最前线面对大众,而宁愿躲在幕后进行令人惊讶的软件革新工程。Chuck进行的许多开发和研究并不广为人知……转载 2007-07-16 22:31:00 · 875 阅读 · 0 评论 -
第一章 Borland的诞生和发展 --Borland传奇
第一章 Borland的诞生和发展一直想写篇文章,讲述我个人在过去10多年来工作中经历的一些事情,以及这些日子中那些我心目中的伟大的工程师们对于信息界的贡献。如果读者和我的年龄差不多,那对于这些内容可能会更有兴趣,因为它们揭示了当时许多软件兴起和没落的过程以及原因。虽然这些事情距离我们很遥远,但我相信许多人仍然对于背后的故事感兴趣。即便没有经历过那段美好的回忆,那也可以把这些内容当成一个有趣的故转载 2007-07-16 22:14:00 · 1568 阅读 · 0 评论 -
附录: Borland大事记
附录: Borland大事记1983.5.2 Philippe Kahn和Anders Hejlsberg在美国Scott Valley共同成立Borland International公司。 同年11月,发布Turbo Pasca转载 2007-07-16 22:44:00 · 928 阅读 · 0 评论 -
第十四章 传奇的篇章仍将继续!
第十四章 传奇的篇章仍将继续!对于Borland来说,2001/2002年实在是很奇怪的时期。因为在这段时间里,Borland无畏于全世界经济的不景气,仍然持续地获利和稳定地成长。和许多1T公司的不断亏损和裁员相比,Borland的表现实在是非常的亮丽。究其原因,这主要与Borland慢慢建立起来的、有史以来最有效率的销售团队有非常大的关系。假如Borland没有这支专业的销售团队,那肯定也转载 2007-07-16 22:43:00 · 890 阅读 · 0 评论 -
第十三章 软件科技的发展和Borland的未来
第十三章 软件科技的发展和Borland的未来"Into The Future?"在前面的章节中,本书讨论了许多现象和问题。除了Borland本身的发展故事之外,也讨论了一些科技的现状和未来的发展。在Java和.NET平台的竞争以及许多科学技术的发展下,Borland的未来到底会如转载 2007-07-16 22:42:00 · 992 阅读 · 0 评论 -
第十二章 回到C/C++的王国
第十二章 回到C/C++的王国"让我们重返荣耀之都吧!"当年Windows平台C/C++开发工具四大天王一战,在Microsoft取得了市场的主导力量之后,C/C++开发工具的市场和竞争反而缓慢了下来,Windows上C/C++开发工具的进步也开始牛步化。VC++一连两三个版本转载 2007-07-16 22:41:00 · 1529 阅读 · 1 评论 -
第十一章 EJB对抗CORBA?有趣的假设
第十一章 EJB对抗CORBA?有趣的假设"组件模型的两大巨头终将对决?"什么是.NET?我们可以从各种技术角度探讨.NET,NET的技术书籍也可以撰写成几十本、甚至是上百本。但是Microsoft提倡.NET,最重要的目的是提供一个足以和Java平台对抗的"企业平台"(Enter转载 2007-07-16 22:40:00 · 922 阅读 · 0 评论 -
第十章 令人焦虑的时代
第十章 令人焦虑的时代"通向未来之路在哪里?"时间进入2000年之后,许多事情变得似乎都不确定了,世界经济的走向和信息技术的趋势变得更令人困惑。在经过了Internet/Intranet、Linux和Open Source的洗礼之后,目前信息技术的发展似乎已经趋向多元化的状态。虽然许多转载 2007-07-16 22:37:00 · 911 阅读 · 0 评论 -
第九章 软件技术和平台的大竞赛
第九章 软件技术和平台的大竞赛2002年的2月,Microsoft终于推出了.NET,也击败了许多爱看Vaporware好戏的人。.NET的出现,代表了窗口平台的软件开发将进入一个新的领域,对于窗口平台上开发工具厂商也有深远的影响,因为.NET是有史以来变动最大的窗口平台。第一次,Micr转载 2007-07-16 22:37:00 · 785 阅读 · 0 评论