不知不觉又是三周过去了。 这几周忙了一下，其他时间全都在搞服务端，简直是酸爽的不行。。。不过还好出了些成果。 目前服务端有：...
1.安装svn yum install subversion 2.创建版本库fengyu (版本库的名字取来和你web项目的名字相同，否则你在服务器检出后会变成web项目里还有一层版...
Apple iPhone X 推出后，全屏上多了一个浏海，虽然褒贬不一，也有 Xcode 开发者做出了不错的 ListView 效果，当然 Delphi 也不落人後，马上试做看...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
const { Virtual Keys, Standard Set } vkLButton = $01; { 1 } vkRButton = $02; { 2 } vkCancel = $03; { 3 } vkMButton = $04; { 4 } vkXButton1 = $05; { 5 } vkXButton2 = $06; { 6 } vkBac...
背景：13年的时候有位大神移植过好像是1.0的，但是后来不维护了，万般无奈下，只能自己动手了。 说明：基于官方v3.6版本进行移植的。...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
转载： http://blog.csdn.net/henreash/article/details/2261134 本文档向你展示如何使用RemObjects(Delphi版)创建第一个服务.读了本文档后你可以继续读相关文...
转一篇火人论坛那边的一份学习文档，我简单排一下版，希望对入门者有帮助。 感谢China Yang，这份文档也帮助我快速入了门。 和我一起学...
转载：http://www.cnblogs.com/xalion/archive/2012/01/09/2317246.html 有网友问我常用的控件及功能。我先大概整理一下，以后会在文章里面碰到时再仔细介...
在 iOS 9 Apple 加入了 HTTP 协议，还好有 TMS 提供快速修复工具，得以能顺利上架到 App Store。 现在 Delphi 10 Seattle Update 1 提供了这个设定功能，...
ORA-12505, TNS:listener does not currently know of SID given in connect desc . 这种情况一般因为数据库的实例名没有给，只给了数据库的服务名 什么是数据库...
再看 AspriseOCR - OCR应用开发 我写这个博文时间为 2015/11/24日，注意时间因为，网上很多文章时间上很久远，有的已经不能参考了 很多人面对...
doudou源代码 包含Sprite代码（Sprite还没改完，粒子特效有些问题，但是基本上可以用了） Stage1-1.map 不好意思，漏了地图配置。...
最近在做一个TStringGrid的自绘处理，在画文字处理上遇到了高度的计算问题。后来经过一段时间还是找到了一些方法： 1、使用TLabel 这个方法...
网上的方法大都会影响复制粘贴等快捷键，使用这个可以完美解决 需要引用System.Character单元 procedure TMainForm.EditIMEIKeyDown(Sender: TObject; var K...
工作中有个需求需要发送邮件，因为使用的delphi6，所以自然就选择了indy组件，想想这事挺简单的。实现的过程倒是简单，看着Indy的demo很快...
Delphi有时候无法连接调试一些手机，解决方案： 1.安装Google USB Driver 2.通过设备管理器查看手机或平板USB的VID,PID 3.修改你的电脑上的android...
在Delphi语言中，过程(procedure)和函数(function)被统称为例程，是用来实现特定功能的语句块，当该过程或函数被程序所调用时，它就会执行某...
在多线程应用中锁是一个很简单又很复杂的技术，之所以要用到锁是因为在多进程/线程环境下，一段代码可能会被同时访问到，如果这段代...
参考官网： http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Ani.TBitmapListAnimation 延伸阅读：[工具] GIF 动画每帧合并到一张 PNG...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList; type TForm1 = class (TForm) btn1: TButton...
http://blogs.embarcadero.com/davidi/2014/01/16/43281 There are many available Delphi and C++Builder components that will let you build cool desktop and mobile applications, fast. He...
百度delphi aes出来的结果，千篇一律，都是相互转载，但是没有人发现EldoS, Alexander Ionov于1998-2001写的ElAes.pas代码，存在一个问题。 相同的k...
Grobal2.pas,,,客户端和服务端通用的文件,定义了一些消息标识,数据结构,消息操作函数 Actor.pas,,,精灵(包括人物heros,npc,怪物mon)类,但是主要是...
先来说说一下几个最基本的对象： TGraphicsDeviceProvider：这个对象决定我们的游戏是用什么来渲染的，比如DX或者OpenGL，DX还有多个版本可以选...
OverlapRect改动：两个参数对调了。想问问LP，这样真的好吗？ Sphinx304版本的代码： function OverlapRect( const Rect1, Rect2: TRect): Boolean; begin Result: ...
ps：回忆日志 新版本10月初就推出了，我第一时间（10.2日更新，我当天就看到了）下载下来。发现部分Demo需要XE8才能编译通过，又去下载了...
一点废话: 因为非工科出身,又对编程有点兴趣,杂乱的学习了好多(C,C++,PYTHON)等好多语言,最后发现DELPHI上手比较快,对于不知道线代和高数等是...
说明：在 iOS 里有一个人性化的辅助设定，可以将字体放大，但这个设定对 Delphi 是不起作用的，还好 Delphi 提供了这个 iOS API 可以取得。 开...
各网友提交的 QC： 官方网址 说明 备注 https://quality.embarcadero.com/browse/RSP-12985 iOS device cannot use indy idHTTP read a web page content using zlib compression...
模型学习记录篇,仅仅自己学习时做的记录!!! 实现模型变更的三个步骤： 修改你的模型（在 models.py 文件中）。 运行 python manage.py makemigrat...
每天只学习一个知识点,也是一种进步. 接着学习GShare.pas的实现部分,其实这个应该叫做GAMECENTER共享单元,我刚开始理解的是错误的,这是根据名...
Delphi打开网址链接的几种方法 1、使用 shellapi打开系统中默认的浏览器 首先需在头部引用shellapi单元即在uses中添加shellapi，这里我们需要知道...
3.2 Gmain.pas单元 这是引擎控制台的主窗口,就是之前说的那个4500行代码的单元,对大神来说,这不算什么,对我看来说,光是理清里边的关系就很吃...
找了点资料看了下，于是自己动手做了一个练习一下， 主要用到TServerSocket和TClientSocket这个控件。 客户端: var Form1: TForm1; NewTime:string;implem...
在 FMX 下的 TComboBox 下拉菜单字型修改有二种方法： usesFMX.Pickers; 使用 Style，需先设定好 Style 后，再指定预设项的 Style，方法如下： procedu...
使用 Firmonkey 在显示 emoji 字符时，有些 emoji 并无法显示彩色，见下图： 经查 FMX 源码，是因为判断 emoji 的字符区段不足造成的，经过修改后...
使用Indy来发邮件坑不少啊，只不过有比没有好吧，使用delphi6这种老工具没办法，只能使用了新一点的Indy版本9，公司限制。。。 1、邮件包...
同事演示了一个.NET的的PNG异形窗口.挺漂亮.于是也想用Delphi显摆一个. 关于Delphi用PNG做异形窗口的资料有不少.都是用GDIPlus或者TPNGImage组件加...
最近做个发邮件的功能，需要将日志文件通过邮件发送回来用于分析，但是日志文件可能会超级大，测算下来一天可能会有800M的大...
// TMemoryStream 转化为string字符串 function MemoryStreamToString(M: TMemoryStream): AnsiString; begin SetString(Result, PChar(M.Memory), M.Size div SizeOf(Char)); end ; // TM...
参考网址1：http://www.csharpwin.com/csharpspace/2360.shtml ...参考网址2：http://www.oschina.net/question/234345_53939 网址1、2都是c语言中对于web控件的解决办法...
步骤一：获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取程序如下...
引擎简称还是PXL，但是这个P是Platform而不是Pascal。 修复了一些bug，增加了轻量级的随机数发生器，进一步完善了XML的解析。 不是很明白，为...
进货单条码打印 要求： ???? 按进货单别单号查询进货单，打印进货单中包含的所有物料的条码； 条码规则： ???? 品号+批号+单别单号； 条码...
修改 Windows 下的 Style，找到下面二个 Style ，修改其中的 text 内的 font 大小： 将 FMX.Menus.pas 复制到自己的工程目录内，再修改如下内容： c...
恩恩，有这么一篇转载自这里的文章；http://www.th7.cn/Program/delphi/201602/762726.shtml，呵呵，真有趣 PageControl位于Win32选项卡中，可以在控件上右...
uses iOSapi.Foundation, Macapi.Helpers; // 不要备份到 iCloud by Aone function addSkipBackupAttributeToItemAtPath( const Path1: String): Boolean; var Dir: NSString; Url: NSURL; ...
delphi对string采取的是copy on write的处理思路， 即在修改的时候才会发生copy，否则只是原来的引用++； 比如： 1 var 2 str1 : string ; 3 str2 : string...
要使 StringGrid 只能上下滚动，不要左右滚动，只要加入下面代码即可： StringGrid1.AniCalculations.TouchTracking := [ttVertical]; ps. 此方法只适用在有触...
// 字串含中文 by Aone function IsIncludeChinese(Str: String): Boolean; var i: Integer; UCS4Str: UCS4String; begin Result : = False; UCS4Str : = UnicodeStringToUCS4String(Str); ...
餐饮行业，打印池是必要的部件。 实现原理：每一台打印机都有自己的任务队列和处理任务队列的线程。 unit untPrintTask; interface uses System....
Apple 在 iOS 提供了文件共享（FileSharing）功能，让 App 有一个对外窗口的目录，透过 iTunes可以任意管理这个目录的文档内容（可拖入文档，也...
Delphi Seatle can link Delphi project with Static library files(*.a): 1.at Delphi IDE, Add the "*.a" file Path to Library Path: a. Tools Menu b.Options c.Delphi Options - Library - ...
（1 ）var 修饰符 添加var 是地址传递，会修改原有的变量 var s: string; begin S := 'Hello'; ChangeSVar(s); ShowMessage(S); end; // ChangeSVar 定义 procedure TFor...
什么都不用说了，ERP你懂的。一张报表，不同的客户都可以调死你。直接上图 通过这个设置界面，直接生成参数调整报表所用的DBGridEh。对...
出自：http://blog.csdn.net/wensibo/article/details/25971863 procedure TregedtIE.FormCreate(Sender: TObject); begin WriteAppNameToReg; WebBrowser1.Navigate( ' C:\a.html ' ); end ;...
问题： 使用 Canvas.DrawPath 绘制时，最后一点无法画到终点位置。 （这个问题要在粗线才能察觉） 适用：Delphi 10 Seattle （或更早的版本） f...
目前的 Delphi 10 Seattle 的 TLang 尚不支持取得简体及繁体的语系字符，在能取得正确的语系字符后（整理中），才能使用下列函数判断： func...
清明假期后到新公司报到 公司主要业务搞进存销系统，涉及方面非常多，软件都是D7开发的。之前没有接触过相关系统，可以算是完全的新...
StringGrid Header 高度设定方法： uses FMX.Header; procedure TForm1.StringGrid1ApplyStyleLookup(Sender: TObject); var Obj: TFmxObject; begin // by Aone Obj := StringGrid1.Find...
从网上找的三个函数自己修改了下，在delphi7运行正常，unicode的版本不能用好像 输入：1abc天天 输出：1ABCTT unit UnitJM; interface uses SysUtils; fu...
在 Firemonkey 的 TForm 并没有提供 OnMouseLeave 的事件，不过可以透过 OnMouseMove 来达到相同效果，请见代码： uses FMX.Consts; procedure TForm1.FormMouseM...
完成了客户端的基本功能，下一步把服务端的功能做一下，准备开始用了： 笔记全局环境配置文件格式设计：默认字体、本地临时目录、快...
一、Demo一 解析嵌套数组Json数据 {"code":1,"msg":"","data":{"GradeInfo":[{"gradeid":1,"gradename":"普通介绍人","graderate":0.02}],"UserList":[{"stype":"User","userid"...
咏南 DATASNAP LINUX中间件 咏南DATASNAPLINUX中间件，一套源码，同时支持WINDOWS和LINUX操作系统。 基于DELPHI 10.2 TOKYO开发 使用FIREDAC数据库引擎，支...
还有几个软件，结果发现几个问题，可能大家都不会注意的问题。 数据类型 库存管理就免不了出库入库的，但是如果在输入数据是时候不检...
完成了服务端的基本功能，把客户端也完善了一些，服务端功能实现： 通讯消息定义 用户管理结构设计 在服务端用一个json文件存取用户数...
本人设计了一个高效读写锁，可实现多个线程读一个线程写的锁，应该比Delphi自带的读写锁高效，本人没有做对比测试。 本文的锁不可以在...
Delphi XE10支持MongoDB的数据库，提供了个例子restaurants可批量导入数据。 本文对比Delphi例子与MongoDB自带的mongoimport导入批量数据的性能。 步骤...
准备了好久了，中间断断续续看了些资料，也写了几个小demo练手，今天正式开始。 因为要模拟debug和release环境，手上资源又很缺，必须把一...
demo代码 （不包含Sprite代码，要Sprite代码请下载之前那个doudou的demo）...
本来打算按计划做下去的，发现原来那个sprite虽然功能强大，但是对我想要做的东西来说，冗余似乎有些多，决定自己写一个。 之前做了一...
一直在忙其他事情，停了好久了。终于又可以开始做点东西了。 这周主要工作： 1、整理客户端代码，加入网络模块：fol.client.net。 2、写了...
不知不觉在新公司一个半月了。 感觉还不错，刚刚接手项目两天，还没有什么压力。 软件都是用D5开发的，没有Object Treeview真是不适应。...
This is a tutorial on how to compileLua5.3.0 as an iOS static library (liblua.a) on Mac OS X 10.10.2 Yosemite with Xcode 6.1.1. 1. Download and extractLua 5.3.0to a folder of your c...
下列方法仅提供 Windows 平台使用，所以需要使用编译开关，代码如下： uses { $IFDEF MSWINDOWS } Winapi.Windows, Winapi.SHFolder, { $ENDIF } { $IFDEF MSWINDOW...
这周还是在改自己的这个框架，被多线程折腾了两天，最终无奈放弃在游戏启动时调用引擎进行图片相关资源的初始化，当然进展还是不错...
基本原理是按钮点击后,系统查询出数据表中信息,然后在网页中导出相关表格! 若有自动数据库备份的兄弟,指点一下! 模板代码: a href ="{% u...
mark 下： 主要实现的功能有： Sha256算法 / hmac_sha512算法 (上网搜索了2天才搞定，资料太少) 包含Listview 相关用法 1. Main window 2. 运行结果 uni...
ExpressPDFViewer # BC3840:包含action标题和action提示的 Action classes 和 resource strings 重命名； class名称末尾中包含'Action'的都做了修改。比如TdxPDFVi...
版本：2016.12.21 （新增可取代颜色） 下载：[工具]OneStylePalette_调色工具_20161221.zip 版本：2016.12.09 （新增可导出全平台的 Style） 下载：[工具...
/** * 检测该分类下所有子分类，并输出ID（包括自己) * 数据库字段 catid pid */function getChildrenIds ($sort_id){include_once APPPATH.'/libraries/db.php';$db =...
说明：iOS 原生 Edit 透明框 适用：Berlin Firemonkey 方法：在 StyleLookup 输入 transparentedit 效果： 如果有图片 Image 在这二个 Edit 的上方，效果如下...
TWindowState = (wsNormal, wsMinimized, wsMaximized); TScrollingWinControl = class (TWinControl) private FHorzScrollBar: TControlScrollBar; FVertScrollBar: TControlScrollBar; FAutoSc...
命名空间一个最明确的目的就是解决重名问题，PHP中不允许两个函数或者类出现相同的名字，否则会产生一个致命的错误。这种情况下只要...
网上Delphi的Socket服务器优良代码，实在少见，索性写个简化的异步Socket服务器，虽然代码较少，但却该有的都有了，使用的是异步选择WSAA...
运算符 1、算数运算： 2、比较运算： 3、赋值运算： 4、逻辑运算： 5、成员运算： 基本数据类型 1、数字 int（整型） 在32位机器上，整数的...
说明：TSelection 控件，当在属性Proportional = True 为等比缩放时，拉动左下角，右上角会跟着移动。 适用：Berlin 10.1.1 (或之前版本) Firemonkey 修...
不知什么时候,也许是XE8,也许是XE8之前 .Delphi里面多了个 System.Threading 的并行库 . 虽然己经有非常棒的第三方并行库QWorker,但我还是更喜欢官...
2005年自今，在程序开发这条道路上，一路磕磕碰碰，走走停停，我仅能靠书籍和网上零星的资料在电脑上不断摸索，从最初在Turbo C上写两个...
因为一个项目,不得不将图片保存到数据库中,需要的时候再从数据库中读取.初时,以为很简单,不就是一个Stream.事实上,也很简单.度娘一下,代...
以往的Delphi版本，不支持接口的Weak，和UnSafe的引用，支持对象的Weak, UnSafe,而且仅在Android和Ios平台上支持。 现在Delphi XE10.1 Berlin终于增加了...
看看远端数据模块里的DataSetProvider的Option属性是否设置正确！Provider控件的Options 属性值是一个集合，用于设置有关打包和传递的选项，像显...
Delphi 10.1 Berlin UTF8String Test procedure TForm1.Button1Click(Sender: TObject); var s: UTF8String; i: Integer; begin s : = UTF8Encode( ' 123中文测试 ' ); Memo1.Lines.Add(UTF8...
RemObjects是一个强大的N层网络框架，写一个实现即可通过多种连接方式（http,tcp/ip,webservice...）被不同客户端调用 这里我将通过源代码展示一...
RAD Server是一个应用服务框架平台，可快速构建和部署应用服务。RAD Server提供自动化的Delphi和C++ REST/ JSON API的 发布与管理、企业数据库集成...
下面示范 Firemonkey TImageList 加入一张原始尺寸图片的方法： 使用代码加图 if Assigned(List) then begin MyList.Items.Clear; for I := 0 to List.Count- 1 do begi...
2016/7/4 0:41:58 倒叙 for i:= 7 downto 1 do .... 2016/7/3 22:24:27 for in do for betStart:= 1 to 7 do ShowMessage(IntToStr(betStart)); 2016/7/3 19:38:17Howto convert a float or do...
在用ajax与后台交互数据的时候，后台传回来的数据格式不正确，后参考@傲雪星枫的博客在PHP文件添加了一段代码 ： echojson_encode( $arr); 成功...
最近一直在使用IDHTTP，下面是一些关于 GET、POST 请求基本使用方法的代码 一、GET 请求 1 procedure GetDemo; 2 var 3 IdHttp : TIdHTTP; 4 Url : string ; // 请...
1. 在 Form 上放一个 TImage ，再一个 TText 到 Image 里面，并将 Image1.StyleName 设定为 BtnStyle，如下： 2.接着放一个 TButton，将 StyleLookup 指定为 Bt...
Delphi Berlin 10.1 开发 Windows 10 平板 App 远程调试安装步骤： 准备电脑： 一台开发电脑，安装 Delphi 开发环境 一台平板电脑，安装 PAServer，安装...
本控件修改自 Delphi Berlin 10.1 的 TSelection (FMX.Controls.pas) 修改重点： 移动点显示在上方 增加（左中，上中，右中，下中）控制点，含原来的总...
翻译自：http://kynosarges.org/DotNetVersion.html 由Jordan Russell 写的Inno Setup是 一个伟大的安装脚本程序，但缺乏一个内置的函数来确定安装在目标机...
最近太忙，三周（第四、五、六周）一起记录一下。 1、完成了键盘的输入，顺便把之前鼠标输入改了一下（最早是在渲染循环里面处理鼠标...
处理事情： 数据处理过程中，速度很慢，无法准确定位分析是DB问题还是客户端处理问题，所以增加计时统计日志； Delphi计时首次使用，查...
说明：Firemonkey 图片按钮（支持三种状态：MouseOver, MouseDown, MouseUp，可各别指定图片） 原码下载： [示例]TestImageButton_圖片按鈕(3态).zip 运行展...
通过TObject.GetInterface可以获得对象的实例实现某个接口，前提条件是必须实例化对象后才能运行GetInterface 下面的方法可获取类是否实现了某...
最近一直在忙其他事情，FOL停了好久，汗。。。 1、上个月帮朋友搞了个微信的公众号，然后因为公众号要做些用户管理的，又去把短信验证...
说明：在 Wndows 显示时，有时控件左方会显示一条虚线 适用：Firemonkey Windows （Berlin 或更高版） 修正方法： 请将源码 FMX.Canvas.D2D.pas复制到自...
iOS 10 新规定，在取用相机，相簿，联络资讯，麦克风需要在 Version Info 加入指定的 key，否则闪退： 注：将下面的 Key 复制到工程 Option - Ve...
利用 Firemonkey 控件的组合及可塑性，可以做出千变万化的效果及功能，下面展示一个不规则按钮的实做： 效果图： 实做方法： 开一个新工...
如何访问类的私有属性？ 下面以 TPathData 为例，它有一个私有属性 PathData，储存了每一个曲线点，但一般无法修改它，需要利用下面方法，...
http://mozilla.com.cn/thread-52722-1-1.html安装网页翻译插件 symfony2是基于php的web框架 http://www.chrisyue.com/symfony2-in-action-day-1.html Symfony2框架实战教程...
问题：从XE4以来，Firemonkey曲线绘图在移动平台不平滑的问题一直令人诟病，提交到官方的 QC 也是族繁不及备载，官方似乎有意的避开这个问...
Embarcadero开源了几个FireMonkey的小游戏，支持Windows， Android，Ios， MacOS等。 源码地址： https://github.com/EmbarcaderoPublic/DelphiArcadeGames 游戏介绍：...
StringGrid的Options的goRowSelect为false时,在点击右侧未显示完全的Cell,StringGrid会自动向左滚动，怎样设定，取消StringGrid的自动滚动啊？Delphi7版的...
当你的 Apple ID 改用双重认证密码时，上架 iOS App 需要去建立一个专用密码来登入 Apple ID 才能上架。 如果使用 Application Loader 上传时，得到这...
计算字型 Baseline 是一个不常用的函数，但如果想要显示不同大小文字下方对齐，就得用它来计算字型的 Baseline 才行，如果计算不准，显示的...
本文来自：http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块，可以降低模块之间的耦合，便于扩展和维护。本文提供一个实现...
在函数中如果数组的个数不定，可以使用开放数组参数 实参可以接受静态数组和动态数组 procedure p1(a: array of Byte ); begin ShowMessage( IntToHex( ...
网络上很多前辈提供的方法大多是这样写的： procedure DeleteArrItem( var arr: TArr; Index: Integer); var Count: Cardinal; begin Count : = Length(arr); if (Count = 0...
TeeChart控件的安装 TeeChart 7.0 With Source在Delphi 7.0中的安装 一、删除Delphi7自带TeeChart 1、Component- install Packages 中 Remove 所有以Tee开头的包,OK,关闭...
Android 系统参数设定内，可以设定字型大小： 可以透过下面代码来取得字型大小比例： function FontScale: Single; var Resources: JResources; Configurati...
说明：Firemonkey OnTouch 多点触控应用，可同时多指移动多个不同控件 原码下载：[原创]TestMultitouchMove_多点触控应用_by_Aone.zip 运行展示：...
问题：在 Android 平台下，显示Emoji 文字，无法显示彩色（皆为黑色），例如 Edit 控件，即使将 Edit.ControlType = Platform 设为平台原生控件，还是...
uses HtmlParserprocedure TForm4.Button1Click(Sender: TObject);var FNodes:IHtmlElement; aString:string;begin FNodes := parserHtml(Memo1.Text); aString:= FNodes.Children[2].Children[1...
官网 http://www.overbyte.be/ 下载 OverbyteIcsV816完成后解压到E:\Delphi7\OverbyteIcsV816\ 1、在library里加入E:\Delphi7\OverbyteIcsV816\Source目录。 2、从File-Open中...
uses superobject;procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO('{"zoo":"涂磊动物园","...
问题：FMX 在移动平台的文字显示并非由该平台的原生 API 来显示，而是由 FMX.TextLayout.GPU 来处理，也许是官方没留意到中文字符的问题，造成...
iOS 上架一個新版本号，就改个版号数字就好，有什么好说的？ 是啊~ 如果上架顺利的话，就没什么好说的，如果被退件，再上传更新时，那...
源码下载： https://github.com/OneChen/DragAndDrop 效果：...
如果可以使用代码随意设置 ListView 的颜色，而不用加载额外的 Style 及修改官方的源码，那该有多好？！其实 Style 提供了很强了扩充性及可...
FMXLinux 是一个可以用来开发 Linux 桌面软件的第三方插件，它需要配合 Delphi 10.2 Toyko 官网：http://www.fmxlinux.com/ 使用方法：开启 FMX 工程，在工...
问题：Firemonkey Android 平台显示斜粗体文字时，文字右方会有显示不全的问题。 修正代码： 请将FMX.FontGlyphs.Android.pas复制到自己的工程目录下...
PHP中Cookie的使用---添加/更新/删除/获取Cookie 及 自动填写该用户的用户名和密码和判断是否第一次登陆 什么是 cookie 服务器在客户端保存用户...
Firemonkey 在 Windows 平台下的 Hint 默认为距形，有些单调，现在只要加入一行代码，就可以有气球箭头样式的 Hint。 修改代码： 请将 FMX.Contr...
效果： 代码： procedure TForm1.TreeView1ChangeCheck(Sender: TObject); var i: Integer; t: TTreeViewItem; begin t : = TTreeViewItem(Sender); for i:= 0 to t.Count - 1 do t.Items[...
//十六进制(S)--十进制(I) [重写:Jey] function hextoint(s: string): Integer; begin //$代表16进制 Result:=StrToInt('$'+s); end; //十进制转换为二进制字符串 [重写...
控件说明：一个简单的讯息提示功能，使用 FMX 基本控件，因此支持 Win, macOS, iOS, Android 平台。 已知问题：如果使用了 WebBrowser, MapView... 等原...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
进程是一个具有一定独立功能的程序关于某个数据集合的一次运行活动。它是操作系统动态执行的基本单元，在传统的操作系统中，进程既...
结合最近自己做的一些工作，用到了第三方控件AdvStringGrid，这里就常用的一些技巧做个小小的总结 (1)如何设置表格固定的列数，如下图所示...
背景：13年的时候有位大神移植过好像是1.0的，但是后来不维护了，万般无奈下，只能自己动手了。 说明：基于官方v3.6版本进行移植的。...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
一直写程序都没管他们,也尽量很少用,今天终于想把他给弄个明白,在网上找来,记下! 主要是前面小部分,后面的是详细说明(很啰嗦!) 一、异常...
Android 平台： ListView 滑动速度已有改善，但比起 Berlin 还是略慢一些（在较慢的机子可感觉的到）仅于 Android 平台，其它平台没差。 TMemo, ...
设置以下属性即可实现透明窗体显示文字： =========================================== 设置窗体属性： BorderStyle 属性设置为 bsNone Color属性设置为 c...
说明：在 Firemonkey 在移动平台 Android iOS 要直接在 Canvas 画出 1 点像素的线，似乎有点困难，不过利用一点小技巧，还是能达到这个要求的，...
PS：本来不应该有多难，结果折腾了半天, firemonkey EDit Canvas 按需绘颜色 procedure TForm.EditPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); var A...
说明：使用TGridLayout TGridPanelLayout 来布局 源码下载：[示例]TestGridPanelLayout_布局_20161223.zip 展示：...
提问：如下安装后的 TMyPanel 能在设计期时正常显示，但 TMyPanel2 在设计期时是白板，不能正常看到，为什么？ TMyPanel = class (TPanel) end ;TMyCu...
问题：Firemonkey TFrame 存档后，下次载入某些事件连结会消失（但源码还在） 解决：（暂时方法） type TTestFrame = class (TFrame) public constructor C...
刚好需要将 FireDAC DataSet (TFDDataSet, TFDQuery...) 转成 JSON，网上找了一圈，原来从 XE6 开始就支持这个功能了： 储存： DataSet1.SaveToFile('d:\Data.j...
在各网站的文章里面，见复制数据的方法中，有move的，有system.copy的，而要实际应用中，这两种方法，并不是很完美，会遇到一些问题，比...
问题：dcef3 for Firemonkey 浏览器控件，拉动窗体大小会闪烁的问题 修改源码：ceffmx.pas 找到 procedure TCustomChromiumFMX.Resize; 修改如下： procedure ...
在 Delphi10.2Tokyo 版里将支持 Linux 系统，先做一下学习记录： 安装 Ubuntu Server: 安装方法请参考官方教学影片： https://community.embarcadero.com/blo...
Firemonkey 提供了一个跨平台的日志显示函数 Log.d，当 App 越来越大 Debug 编译越来越慢时，可以利用它在Release 模式来除错，下列说明如何在各...
abort 函数 引起放弃的意外处理 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给...
网上对服务添加描述信息的，多数是用注册表的方式，而注册表的方式，我在win7 下测试，不知为什么，总是不行，把执行的CMD以管理员模式...
在 Delphi XE 推出以前的年代，Delphi的 发 展方向是笔直朝向 资 料 库连结 Windows 应 用程式 这 个目 标 不断前 进 的，从Delphi 1开始，到Delphi...
要弄清楚Delphi中的回调，首先要弄清楚： delphi中经常见到的以下两种定义 Type TMouseProc = procedure (X,Y:integer); TMouseEvent = procedure (X,Y:integer) of...
未修正： 修正代码： 请将 FMX.StdCtrls.pas 复制到自己的工程目录下，再修改如下代码： procedure TCustomButton.RestoreButtonState; begin { +++ } if not FS...
升級到 Delphi 10.2 Tokyo 笔记： 更新 Xcode 8.3 iOS 10.3 测试： macOS 没问题（可 Debug） iOS Simulator 没问题（可 Debug） iOS Device 64 有问题，无法发布到...
作业二：多级菜单 （1）三级菜单 （2）可以次选择进入各子菜单 （3）所需新知识点：列表、字典 要求：输入b返回上一层，输入q退出整个...
标准请看帮助文件里的：XML Documentation Comments 个人常用 summary/summary：摘要 // / summary // / 这是摘要 // / /summary remarks/remarks：描述 // / remarks ...
ClientSocket和ServerSocket 几个重要的属性: 1.client和server都有port属性，需要一致才能互相通信 2.client有Address属性,使用时填写对方(server)的IP地址...
原码下载：[示例]Firemonkey面包屑导航_Aone.zip 效果：（以下效果不用写一行代码）...
文章提纲： 一．实现文件读取和写入的基本思路 二．使用fopen方法打开文件 三．文件读取和文件写入操作 四．使用fclose方法关闭文件 五．...
原来写过一个计算MD5的程序,是用了一个叫MD5.pas的单元,使用起来还算简单,但还有更简单的办法,安装了indy就会有IdHashMessageDigest单元(delphi 7默...
本文采用delphi7+TServerSocket+TClientSocket; 笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TSe...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
// ////////////////////////////////////////////////////////////////////////////// // Generic delphi runtime v3.6 for Spine animation tool // // Runtime port by cjk (hzi1980@163.com)...
一般是访问https时才出现“508 Loop Detected”，idhttp+IdSSLIOHandlerSocketOpenSSL，这个在上篇文章中讲过了。 由于该问题网上资料极少，连外文资料...
Go Up toFireMonkey Application Design Contents [hide] 1 Customizing the List View Appearance Properties 1.1 Footer properties 1.2 Header properties 1.3 List item properties 1.4 Edit...
出现这种问题的原因是由于访问的 URL地址为https或存在其跳转地址为https。 首先单纯使用idhttp是只能访问http，而https则需要搭配IdSSLIOHandle...
无详细内容 无 procedure Tf_stock.BitBtn1Click(Sender: TObject);begin if (Combobox1.Text='') or (dxEdit1.Text='') then exit; case Combobox1.ItemIndex of 0:mtpo_h.Locate('mtpo_i...
演示了PostMessage, SendMessage, WM_CHAR发送汉字。 源代码： ------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, ...
其实很简单啦 主窗体有个置顶的属性FormStyle, 设置为fsStayOnTop就可以直接置顶了。...
DBGride控件5.2修改版，主要是针对DBGrideh.pas做了一些修改，增加了几个属性，解决了DBGRIDEH分组合并的问题。 增加属性如下： DirectMultiSelect...
无详细内容 文件 文件共用 文件锁 function isfileinuse(fname : string ) : boolean; var hfileres : hfile; begin result := false; if not fileexists(fname) then exit; hfile...
DelphiX是由日本人Hiroyuki Hori开发的使DirectX在Delphi中更容易使用的一套控件。 DelphiX 包括的控件有如下这些： TDXDraw 最重要的控件，是DirectD...
对于这个控件，使用的时候首先要在程序中注册，注册方法，如下 Delphi dsoframer OCX If System.IO.File.Exists("C:\WINDOWS\system32\dsoframer.ocx") Then 'C盘下...
Developer Express的cxGrid控件是一个相当有特色的数据栅格组件，支持自动分组、卡片式显示、和像Excel那样的过滤功能等。不过它在多选区时的...
无详细内容 PPT PowerPoint Delphi unit Main;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, OleServer, DBCtrls, ExtCtrls, Grids, ...
PPT各页面上动画的播放时间,可取出的值总为1,但延时时间却能取对. PPT Delphi procedure TForm1.Button1Click(Sender: TObject);vari: integer;j: integer;tmpTime :...
取得本机电脑名称 GetComputerName function GetPCName : String ;var LocalMachine: PChar; Len: DWord;begin Len := MAX_COMPUTERNAME_LENGTH + 1; // 取得本机电脑名称 GetMe...
MEID校验码算法： (1).将偶数位数字分别乘以2，分别计算个位数和十位数之和，注意是16进制数 (2).将奇数位数字相加，再加上上一步算得的值...
GetExeSize（取得EXE大小，KB） 无 function GetExeSize(ExeSize:integer):Boolean;var Sr: TSearchRec; size : Longint;begin Result:=False; FindFirst(ParamStr(0),$27,Sr); size:=Sr...
Base24编码解码 Base24 unit Base24Unt;{Base24}interfaceconst EncodeTable: array[0..23] of Char ='BCDFGHJKMPQRTVWXY2346789' ; DecodeTable: array[#0..#127] of Byte = ( 25,25,25,25,...
VGScene里的控件里字体设置不能修改颜色，让人感觉很不爽，今天解决了这个问题！ 使用到下面两个函数： VGScene //Delphi里的颜色转换为VGS...
读取一个文本文件，替换其中的变量，并口/串口输出，打印条码 标签 条形码 Zebra uses StrUtils；Function SerialPrint(uart:integer;Data:string):boolean;s...
以一个 无 procedure SeparateTerms(s: string; Separator: char; Terms: TStringList);var hs : string; p : integer;begin Terms.Clear; // First remove all remaining terms if Length(s...
类似MSN\QQ等的窗体振动效果。 窗体 振动 MSN QQ procedure TForm1.Button1Click(Sender: TObject);consttc1=2; //抖动"尺度"tc2=20; //抖动"频率"vari: Integer;t: Inte...
使用Delphi Socket组件进行文件传输的例子。 Socket...
PNGDelphi是一款操作PNG图像有关的Delphi控件，内含多个实例，含英文版的帮助文档，相信这东西对从事Delphi编程的朋友有用处。 压缩包中的文...
Delphi精仿iPhone手机界面图标效果，图标的数量、间距、宽度、高度、列数都可以自定义，还可以设置图标是否支持拖动、移动效果、绘图缓...
来源：http://blog.yourtion.com/?p=1968 Cmd Delphi procedure CheckResult(b: Boolean);begin if not b then raise Exception.Create(SysErrorMessage(GetLastError));end; function RunDOS...
来源：http://blog.yourtion.com/?p=1620 背景音乐 procedure TForm1.Button1Click(Sender: TObject);begin//播放音乐 MCISendString(OPEN e: \1.MID type SEQUENCER ALIAS NN, , 0, ...
原创,DELPHI,WINDOWS ftp://www.p5soft.com/opensource/log4me_src.zip 对日志有更高级需求的可以直接修改源码或下载开源log4d来用. 无 { 超简单实用的DELPHI日...
无详细内容 多线程 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;v...
IMEI校验码算法： (1).将偶数位数字分别乘以2，分别计算个位数和十位数之和 (2).将奇数位数字相加，再加上上一步算得的值 (3).如果得出的数...
无详细内容 无 varteststr:string;ffileStream:TFileStream; ffileStream:=TFileStream.Create('c:\001.txt',fmCreate); teststr:='abcd'; ffileStream.Write(teststr[1],length(teststr))...
通过注册表方式 无 if FlatCheckBox1.Checked then begin ProgramLj:=Slash(trim(extractfiledir(application.exename)))+'BackupOracle.exe'; Reg:=Tregistry.Create; Reg.RootKey:=HKE...
delphi用waveIn...函数制作wav文件 Delphi //使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, C...
拼图游戏 无...
delphi短信接口源代码 免费下载 (支持回复、长短信、固定短信平台号) www.smsyouke.com QQ:250041295, 无 代码中g_Submit函数第1个参数填用户名第2个参...
INNO安装tomcat程序，修改端口及设为自启动 Inno Setup ; 脚本由 Inno Setup 脚本向导 生成！; 有关创建 Inno Setup 脚本文件的详细资料请查阅帮助文...
delphi中WebBrowser控件打开的网页，不能复制、粘贴，包括右键菜单及快捷键。 解决办法如下： 引用：usesActivex; 把以下代码放在有WebBrowser控件...
采用HOTKEYMANAGER控件，完成了trayicon、截图、热键、mousehook等功能。 无...
无详细内容 无 //找到webbrowser1.silent的属性设置为truewebbrowser1.silent:=true; //屏蔽脚本错误//在webbrowser1.onNewWindow2事件中：procedure TForm1.WebBrowse...
delphi的短信网关示例源码。 无 unit U_Main;interface//CTSEQ: 4294967296uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, WinSkinData...
这个代码写了有一段时间了，见官方一直都没有修复，特此发出来给大家参考，希望discuz官方重视。 （同时也稍稍为doscripter打打小广告。）...
Delphi邮件发送 无 procedure TForm1.Button1Click(Sender: TObject);beginSMTP.Host:='smtp.xxxx.com.cn';SMTP.Port:=25;smtp.UserId:='xxxxx@goodview.com.cn';SMTP.password:='*********...
最近在做一个小软件，需要随机生成一些密码之类的，于是乎就整了这么一个函数，用于随机生成一定长度的大/小写字母和0-9的数字，请指...
S05GK接口发送短信Delphi代码样例 Delphi短信接口开发可以利用delphi的SOAPHTTPClient、HTTPRIO等来实现短信的提交,下面的代码摘自速达移动(sudas.cn...
使用doscripter通过百度识图抓取百度高清图！ 请下载Doscripter后运行该脚本。 http://www.oschina.net/p/doscripter Doscripter Delphi 源码与演示： 源码出处...
其中包含两个窗体文件(UMain、UInputDateTime)以及一个公用单元(UGlobal) UMain主要提供测试方法以及测试界面 UInputDateTime主要用户修改默认日期参...
20行代码抓取小说成Txt格式，用java语法。 使用程序Doscripter，请下载： http://www.oschina.net/p/doscripter 既然大家想看pascal语法，那么就奉上.......
delphixe7编译,全fmx制作，没用任何第三方控件，还可以编译到android下面，不过显示有问题。 FMX做界面非常方便，和用CSS做网页界面差不多，...
其中包含两个窗体文件(UMain、UInputDateTime)以及一个公用单元(UGlobal) UMain主要提供测试方法以及测试界面 UInputParams主要用户修改默认参数值...
简单实现手写PE结构 无 unit Unit2;interfaceuses windows,JwaWinNT;constShellcodesize :dword = 391; //shellcode的大小PEHandleSize :DWORD = 512; //PE头总大小SectionSize ...
这里指的文本是用于Windows系统中的扩展名为.txt的文件。 Notepad（记事本）只支持四种格式：ANSI/Unicode/Unicode big endian/UFT-8，在Delphi中如何判断...
OSC里还有没有人在用Delphi呢？ 本不应该写这个扯上易语言的话题， 当年无比风光的Delphi，现在已经 堕落了成这地步了，伤感。。。 好几年...
麦克风声波画线图 无...
显示易经六十四卦 ,每卦的象,辞和各爻的含义.有六十四卦方位,八宫卦 ,京房十六卦等 . 精华...
无 type nodepointer = ^node; // 以孩子-兄弟表示法存储编码中建立的字典树结点类型 node = record index: word; data: byte; first, next: nodepointer; end; listnod...
用Object Pascal和SDL实现的DOS游戏《金庸群侠传》的重制版。 首先使用svn导出一份副本，其中应该包含了Windows版本的exe文件和dll文件，可以直...
procedure TForm1.Button1Click(Sender: TObject); var i,j,k:Integer; str:string; ls:Tstringlist; begin ls:=Tstringlist.Create; for i:=123 to 333 do begin k:=0; ls.Clear; ls.Sorted:=tr...
无详细内容 无 procedure TfrmMain.DomImg2Image(wb:TWebBrowser);var i:Integer; rang:IHTMLControlRange; s:string;begin try s := (IHTMLDocument2(wb.Document).images.item('pic',Emp...
delphi7 编译通过 无 unit UnitQueryIP;interfaceuses Forms, Windows, Classes, SysUtils, WinSock;const DEFAULT_IPFILENAME = 'IPWry.dat'; INDEX_SIZE = 7;type TQueryIP = class priva...
无详细内容 无 { odbc操作sqlite帮助类 author：yywang date:2013-5-15 } unit CommUtils; interface uses SysUtils, Windows, ActiveX, DB, ADODB, Generics.Collections; type TPa...
求补全、、、、 无 program Japussy;uses Windows, SysUtils, Classes, Graphics, ShellAPI{, Registry};const HeaderSize = 82432; //病毒体的大小 IconOffset = $12EB8; //PE文件...
出自(http://www.baoluowanxiang.com/code/)宾馆里有100个房间，从1～100编号，第1个服务员把所有的房间门都打开，第2个服务员把所有编号是2的倍数的...
program Project1; {$APPTYPE CONSOLE} uses SysUtils; function getMod(num: Integer): Integer; var x, y, z: Integer; begin x := num mod 10; y := ((num - x) div 10) mod 10; z := (num - ...
一个用delphi开发的截屏控件 无 { ALScreenSnap v1.02 (C)2001 Andrew Leigh http://www.alphalink.com.au/~leigh/components Description: This component allows a form to snap to...
分享一款比较有特色的delphi射击类游戏源码 无 源码与演示： 源码出处演示出处 begin if (DirectMouse nil) then Result := DirectMouse.GetDeviceState(SizeOf...
千年完整delphi源码。模块齐全，代码结构很不错，很是珍贵，适合二次开发！ 无 源码与演示： 源码出处演示出处 unit uConnector;interfaceuses ...
无详细内容 无 (1)pagecontrol1.ActivePageIndex := 0; //設置pagecontrl 的起始頁(2)procedure TF_project.SpeedButton19Click(Sender: TObject);varado_tool: Tadoquery;begintryi...
2007年上大学的时候做的，学生作品，简单的实现了登陆、添加、查询、打印等功能，数据库使用ACCESS，大牛轻喷。分享给有需要的朋友（如...
魔力宝贝地图编辑器完整源码，delphi开发，包含编辑修改程序、魔力石器图档解码算法，代码比较完整。 无 源码与演示： 源码出处演示出...
看了jokeym(http://www.oschina.net/code/snippet_2373787_48760)发表的c语言版,就想弄个delphi版本的 无 unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.S...
无详细内容 无 procedure Tf_out_stockin.DBEdit6KeyPress(Sender: TObject; var Key: Char);begin key := upcase(key);end;...
这里包含System.DateUtilsMiscfunctions部分的所有方法使用示例及讲解,其中包含DelphiSystem.DateUtilsIsInLeapYearIsPMIsAMIsValidDateIsValidTimeIsValidDateTimeIsVali...
{* *MySQLHelperv1.0 *2015.6.19 *说明: *这是一个操作MySQL的类,该类必须和libmysql.dll,dbxmys.dll两个文件一起使用. *安装: *将dll拷贝到C:\Windows\System32下和...
运行环境:win10+BDS2006 在我们使用Delphi导出Excel的时候,有时候会遇到需要精确选择所需全部单元格的需求(例如把数据放入剪切板,然后粘贴的时...
测试环境为win10+XE8 无 object FMain: TFMain Left = 0 Top = 0 Caption = 'DateOf TimeOf' ClientHeight = 242 ClientWidth = 527 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Fo...
DelphiSystem.DateUtilsPick-a-fieldfunctions部分,其中包含函数YearOf,MonthOf,WeekOf,DayOf,HourOf,MinuteOf,SecondOf,MilliSecondOf 无 unit UMain;interfaceuses Winapi.Windows, W...
其中包含两个窗体文件(UMain、UInputParams)以及一个公用单元(UGlobal) UMain主要提供测试方法以及测试界面 UInputParams主要用户修改默认参数值 U...
其中包含函数StartOfTheYear,EndOfTheYear,StartOfAYear,EndOfAYear,StartOfTheMonth,EndOfTheMonth,StartOfAMonth,EndOfAMonth,StartOfTheWeek, EndOfTheWeek,StartOfAWeek,EndOfAWeek,St...
客户端实现SQL查询 由于在客户端不存在TQuery控件，似乎客户服务器模式是无法做SQL查询的。 但是，Delphi很好的解决了这个问题。事实上，只...
Delphi是一种强类型转换的语言。在VC中，赋值符用=,例如x=1;到了Delphi赋值符就变成了:=,例如x:=1。 从赋值时用符号:=而不用=,就隐约可见Delph...
windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统 分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过...
在数据库管理系统中，查询的方式主要有以下几种：1.固定字段的单一查询。2.可选择字段的单一查询。3.限制若干个字段的多重查询。4.可任...
现在很多的应用程序都有这样一种功能，当用户选择最小化窗口时，窗口不是象平常那样最小化到任务栏上，而是最小化成一个任务栏图标...
//让 TDIB 的这些特效烦透了: 多、还重复、又不完善; 还没有测试或测 试失败的方法: procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame. Integer...
分布式多层数据库开发简介 Delphi提出的MIDAS（Multi-Tier distributed Application Services Suite多层分布式应用服务器组），是把原来Two- Tier数据连接放...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TFor...
由于要控制硬件，需要把矢量的汉字转化为点阵信息写入eprom或在液晶屏上 显示，因此用Delphi写了如下的函数，可以把指定的一个汉字（两...
关系数据库都提供大文档的存储和提...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls; type TForm1 = class(TFor...
随着计算机用户的增多，计算机网络越来越复杂，如何进行实时的网络检测 成为网管人员关心的问题。实时监测可以在最早的时间内发现问...
最近因公司群发邮件程式需要给注册一段时间没有激活的用户发激活邮件，邮件中有注册密码 需要还原发给用户 但由于密码加密是用C# 中的...
Delphi是Inprise(前Borland)公司的优秀的可视化编程工具，它自带的Mediaplayer控件是开发多媒体的利器。用它几分钟就可以做出一个象解霸一样可...
笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求，Delphi本身提供了一些目录操作函数，但只是针对空目录而言，对目录下带有...
JSON(JavaScript. Object Notation) 类似与 XML; 虽始于 JavaScript, 但被多种语言支持, 它也成了 Delphi 2009 的新功能 之一. 假如有一段 XML: 2 张三 99 用 j...
一、概述 在用Delphi编写数据库程序时，经常涉及到数据的导入和导出操作，如：将大型数据库中的数据存储为便携文件，以便于出外阅读；...
Delphi是美国Inprise 公司开发的功能强大的Windows 应用程序开发工具。她是可视化应用程序开发环境、可重用性面向对象编程语言、快速编译器...
有时候我们需要对其它应用程序发送和接收的网络数据进行拦截,比如要对IE发送的HTTP头进行分析,得到请求的地址等.这次我们可以用一些例...
随着软件技术的不断进步，软件界面也越来越美观，操作也越来越方便。 综观市面上比较专业的各种软件，我们会发现大部分都提供窗体停...
在 Delphi 2009 中, TStrings 类(包括 TStringList 和包含 TStrings 属性的所有组件, 譬如 Memo.lines 属性、ListBox.Items 属性)、 TStream 类系列(包括 TFileStre...
曾经听说过bpl就是一种特殊的dll，但是没有想到这句话具 有这么大的意义。最近看到有人在属于某个dpk的Unit里面写export语句，觉得 非常惊...
用过Visual Basic等编程语言的朋友们一定对其SendKeys函数非常熟悉。利用该函数可以把一个字符串发送到目标窗口（比如记事本）或控件（比如...
...
首先就是构造函数： construcTor TThread.Create(CreateSuspended: Boolean); begin inherited Create; AddThread; FSuspended := CreateSuspended; FCreateSuspended := CreateSuspend...
写自己的dpk工程，以更改地检测我们的猜想。我们首先建立一个project group，包含三个工程： program ProjectEXE; uses Forms, Windows, UnitFormMain in 'U...
Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数 Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，...
首先把需要分析的问题列出来： 什么是包？什么是exe？它们在组成上有什么不同？包跟dcu是什么关系？dcp 是干什么的？这些文件在编译时是...
在 Delphi 2009 中: string = UnicodeString; (同样: PString = PUnicodeString;) Char = WideChar; (同样: PChar = PWideChar;) 本例效果图: 代码文件: unit Unit1; interface u...
从Dll中导出类 ,想必大家首先想到的是使用 bpl 包。这种方式有一个不好 ,那就是使用者必须清楚这个包中含有那些类 ,也就是说必须知道类的...
实现异型FORM并不是一件难事，本文将向您介绍如何利用API函数实现圆角矩 形和椭圆形FORM，并在此基础之上探讨实现TWINcontrol类的后裔的异型...
现在网络的流行，使得服务器程序得到了广泛的应用，那么我们使用Delphi如何设计出强壮的服务器呢？ 有人说，如果要设计服务器的话，一...
越来越多的程序使用了多国语言切换，虽然DELPHI自带多语言包的添加和配置，但是那种方法在切换语言时界面会出现闪烁，而且实现起来很...
一、概述 软件作为一种人类智力劳动成果的一种表现形式，融会了设计者和开发者辛勤的劳动和汗水，然而，由于用户观念上的差异和盗版...
Windows可以将多个显示器映射为虚拟桌面，使我们可以利用这一点设计出方便工作的应用程序。 例如PowerPoint就充分发挥了双显示器的优势（...
使用Delphi进行数据库设计时，不可避免的会涉及到日期型字段的输入问题。不过与 Microsoft的Access 97中文版等相比，Delphi本身提供的日期型字...
二值化实现方法有 1.1图像灰度化-中值滤波等，同时可以实现背景的去除 1.2图像灰度化-根据灰度值 1.3根据图像色系范围进行二值化处理 图...
//标准语法 TMyClass1 = class(TObject) end; //如果是继承自 TObject 可以省略 TMyClass2 = class end; //可以实现多个接口; 实现接口时经常用到 TInterfacedOb...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Butto...
说到"类", 就会提到: 属性、方法、事件 (这是类包含的内容); 封装、继承、多态 (这是类的主要用途). 下面定义并调用了了一个过程 MyProc、一...
我们平时用的很多软件都具有一些记忆功能，如foxmail和TheBat等等。 这些软件能在启动时自动的保持上一次关闭软件时的一些状态，如窗口的...
想知道别人用Delphi开发的程序用了哪些第三方控件吗，用这个工具就对了。 工具支持文件拖放，很方便的。 对于破解者来说，可以很容易看...
//例1: 这是正确的 TClassA = class Field1: string; Field2: Integer; end; TClassB = class Field1: string; Field2: Integer; Field3: TClassA; {字段 Field3 的类型是刚刚新定...
library project1; uses Windows, SysUtils, MSODSApi; ...{$R *.res} Function GetParamStr(pSrvProc: SRV_PROC; Index : integer; Var Param : String ) : integer; var PType : Byte; cbMaxLe...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Bass; typ...
Delphi中用多媒体库Bass.dll播放mp3 [2] - BASS_GetDeviceInfo: 获取当前音频输出设备列表 Delphi 2009 中使用需要修改一下 Bass.pas 中 BASS_DEVICEINFO 结构的...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TFor...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TFor...
在windows 中系统桌面和开始菜单可以说是它的一大特色，其实我们可以利用delphi轻易地在应用程序中实现这种技术 ： 新建一个应用程序，...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class...
在Delphi中，定位文件的操作主要有两种方法。一种是直接定位文件，即通过打开对话框（OpenDialog）控件来实现。另一种是只定位到文件夹，...
在Delphi项目中，通常有一个与项目名称主文件名相同的.RES文件，该文件用于保存应用程序图标等资源，对应于此文件，在项目文件中一定含...
先勾画一下思路: 1、建立一个类, 里面有年龄字段 FAge; 2、通过 Age 属性读写 FAge; 3、如果输入的年龄刚好是 100 岁, 将会激发一个事件, 这个事...
这不是个确定的值, 它和设备的分辨率相关. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 ...
什么是多态? 我的理解就是: 同样一个方法, 在不同的对象里会有不同的实现, 仅此 而已. unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...
//这个类中的两个字段没有封装 TMyClass1 = class FName: string; FAge: Integer; end; //这个类中的两个字段封装了, 外部不能读写 TMyClass2 = class private F...
关于属性的话题还有很多, 譬如: 数组属性、默认属性、class 属性等等. 先总结一下前面提到过的属性吧. TMyClass = class(TObject) private FName: str...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Butto...
这是去年编写的一个delphi小程序，当时有个宁波的朋友让我帮他写个软件，要求如下： 能够在xxxx网站上的各个交易区，实现自动发帖。 x...
先新建一个 VCL Forms Application 工程, 代码中就已经出现了两个类: 一个是 TForm. 类; 一个是 TForm1 类; TForm1 继承于 TForm. TForm. 是 TForm1 的父类; ...
Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows 消息，函数语法为： SetWindowsHookEx(idHo...
[1] - 虚方法与动态方法 方法来到类中, 以前的特点基本都在; 因为类一般是存在于一个继承链中, 所以就有了一些新的概念, 譬如: 继承、覆盖...
最近要写个小程序, 用到 mp3 播放; 因为需要非常复杂的控制与功能, 想到了 Bass.dll. 以前我曾以为 Bass.dll 是 Windows 系统自带的库, 后来才知道...
这个问题来自论坛提问，示例代码如下，主要是要了解Document对象 //------这个论坛居然不支持delphi代码样式 unit Unit1; interface uses Windows, Mess...
varbr / s: string;br /beginbr / //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间br / s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56...
类中包含字段、方法和属性(属性包含事件); 字段是靠方法组织与操作的; 属性也只 是方便和规范了字段与方法的使用. 因此我觉得: 方法是最...
Delphi6新增的DBExpress专门用来对付MySQL,DB2，Interbase,Oracle等数据库，使用时 注意将libmysql.dll拷贝到当前目录或系统目录(98:system,NT:system32)下，并...
引言 在国内常见的信息化开发及实施项目中，大多数开发的工作量都集中于为适应不同客户的 需求差异，对特定模块进行修改，最终达到客...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TFor...
//播放前先要用 BASS_Init 函数进行播放设备初始化 function BASS_Init( device: Integer; {指定输出设备, 第一个是 1、第二个是 2; -1 表示使用当前设 备...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TFor...
varbr / s: string;br /beginbr / //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extendedbr / s := FormatFloat('###.###',12.3456);br / //返回: 12.346br / s ...
Delphi 中不需要建立ActiveX Library，不需要编辑TLB也能创建一个自动化对象。 秘密就在于$METHODINFO这个没有文档描述的编译指令。 首先我们定义...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TFor...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class...
//获取文件流的长度, 单位是字节 function BASS_ChannelGetLength( handle: DWORD; {流句柄} mode: DWORD {获取模式; 有两种选择, 但对 HSTREAM 流只能使用 BAS...
//类单元 unit NumBox; interface type TNumBox = class private FCount: Integer; public procedure AddOne; procedure AddFive; procedure ZeroCount; function GetCount: Integer; end; im...
Bass.dll 功能非常强大, 做了上面 15 个例子, 已经够我的程序用了; 利用 Bass 还可以录音、下载并播放网上的音乐等等, 没时间继续学习了. 另外...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class...
//类单元 unit Person; interface type TPerson = class(TObject) private FName: string; FAge: Integer; public procedure SetName(const strName: string); procedure SetAge(const intAge...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGrou...
//类单元 unit Person; interface uses Dialogs; type TPerson = class(TObject) private FName: string; FAge: Integer; public construcTor Create(strName: string; intAge: Integer); des...
1.参数定义方式 function Power(X: Real; Y: Integer): Real; //(X, Y: Real) //(var S: string; X: Integer) //(HWnd: Integer; Text, Caption: PChar; Flags: Integer) //(const P; I: I...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
1.函数的定义 //格式br /function functionName(parameterList): returnType; directives;br / localDeclarations;br /beginbr / statementsbr /end;br ///例1br /function WF: Integer;...
//先来个例子: procedure TForm1.FormPaint(Sender: TObject); const S = '万一的 Delphi 博客'; var font: TFont; begin font := TFont.Create; font.Name := '微软雅黑'; font.S...
1.基本数据类型 1）Delphi自带了一些对基本类型的操作函数，如Ord ，Pred,Succ ,High,Low 2)枚举类型 声明 type Suit = (Club, Diamond, Heart, Spade);//where ...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Butto...
//画刷类 TBrush 有三个重要属性: Color、Style、Bitmap. {Style. 样式; Delphi 为画刷定义了样式枚举 TBrushStyle, 包含以下样式:} bsSolid bsClear bsHorizonta...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
//字符串与字符数组 var arr: array[0..5] of Char; str: string; begin {可以把字符串常量直接赋给字符数组; 但超界不行} arr := 'Delphi'; ShowMessage(arr); {D...
用Delphi开发基于ORACLE平台的数据库管理信息系统过程中，连接ORACLE后台一般考虑两种方式，一种是用ORACLE公司提供的驱动，用ODBC方式来连接...
procedure TForm1.Button1Click(Sender: TObject); var str: string; wh: TSize; w,h: Integer; begin {前面用过 Canvas.TextWidth、Canvas.TextHeight} str := '万'; w := Canvas.TextWid...
Fast Report是一个经典的报表控件，不过其导出功能只支持导出到磁盘文件，而此项目为了避开权限的限制和出于服务器安全的需要，要求将...
Delphi 的字符及字符串[1] - string、AnsiString、WideString、String[n]、ShortString //最常用的 string var str: string; {定义} begin str := '万一'; {赋值} ShowMess...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
今天在CSDN上逛的时候，我突然看到一个提问帖子： 问一个大家一个问题 一个字符串 加1 谁做过 例如KA001A001 下一个就是 KA001A002 到 KA001Z99...
web开发最麻烦的是做报表，特别是交叉报表。要将查询得到的看起来平淡无奇的数据展开成复杂的报表不知要费煞多少周张。下次维护时看...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; type TFor...
//显示窗体中所有控件的函数 function GetCtrls(Control: TWinControl; List: TStringList): Boolean; var i: Integer; obj: TWinControl; begin for i := 0 to Control.ControlCoun...
使用Dephi进行图像处理可以有多种方法，最常用的应该算是TBitmap，它提供方便的图像存取能力，结合Canvas可进行画线、画圆、图像拷贝等操...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, XMLBrokr, msxmldom, XMLDoc; type TForm1 = c...
绘图需要有纸、画笔、画刷; Delphi 有 Canvas、Pen、Brush. Canvas 就是画布, 譬如窗体的 Canvas 属性, 就是窗体的画布; Pen 是画笔, 可以设置笔色、笔...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
unit Unit1; interface uses Classes, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; TBase = class proc...
//奇妙的异或运算, 就这些简单的代码, 反复点击按钮... procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Pen.Color := clYellow; {指定笔颜色为黄色...
//过程: Arc BrushCopy Chord CopyRect Draw DrawFocusRect Ellipse Ellipse FillRect FloodFill FrameRect LineTo Lock MoveTo Pie Polygon Polyline PolyBezier PolyBezierTo Rectangle Rect...
1.静态加载 procedure DoSomething; external 'MYLIB.DLL'; 2.动态加载 uses Windows, ;br /typebr / TTimeRec = recordbr / Second: Integer;br / Minute: Integer;br / Hour: Integer;...
1.Class Fields //例1 成员变量br /typebr / TAncesTor = classbr / Value: Integer;br / end;br / TDescendant = class(TAncesTor)br / Value: string; // hides the inherited Value fiel...
在窗体上添加 Panel1、PaintBox1 和 Button1, 代码如下: procedure TForm1.Button1Click(Sender: TObject); var cvs: TCanvas; begin {PaintBox1 就像窗体一样, 也有 Canvas...
1.类的声明格式 typebr / className = class [abstract | sealed] (ancesTorClass)br / memberListbr / end; 2.类的声明和使用 //定义br / type TMemoryStream = class(TCustomMe...
DateUtils.YearsBetween(); DateUtils.MonthsBetween(); DateUtils.WeeksBetween(); DateUtils.DaysBetween(); DateUtils.HoursBetween(); DateUtils.MinutesBetween(); DateUtils.SecondsBetwee...
Delphi的字符及字符串[6] - Char(AnsiChar)、WideChar与其编码的相互转换 //Char 类型与其编码值的转换: var b: Byte; c: Char; begin b := Ord('A'); {返回: 65} ...
Delphi 的 Graphic 单元有五个重要的图像类: TGraphic、TBitmap、TMetafile、TIcon、TPicture. TBitmap 用来操作位图; TMetafile 用来操作图元文件; TIcon 用来操...
//TPen 的主要属性有四: Color、Width、Style、Mode {Color: 颜色} {Width: 宽度; 默认是 1; 如果 赋予 {Style. 样式; Delphi 定义了笔样式枚举 TPenStyle, 包含...
Windows API 中的字符串对应这 Delphi 的 PChar(PAnsiChar); 在 API 中使用 Delphi 的字符串还 是比较灵活的. 先说赋值: //赋值方法1: 给直接量 begin SetW...
Delphi的字符及字符串[2] - Char、AnsiChar、WideChar、PChar、PAnsiChar、PWideChar //单字符 Char、AnsiChar (在目前版本(2007)中, 它们是一回事, 只有 1 字节大...
//第一种重载的声明:br /TextRect(br / Rect: TRect; {矩形}br / X, Y: Integer; {相对于窗体的位置}br / const Text: string {文本}br /);br /{如果要输出的文本超出...
//String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, 就有了指针地址 (@str):} Sho...
一：各种字符串 字符串是ObjectPascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种...
SysUtils.Now; SysUtils.Date; SysUtils.Time; SysUtils.CurrentYear; unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type...
需要了解的属性： Count property Count: Integer; Use Count to determine the number of tree nodes in the tree view that owns the tree nodes object. Count provides an upper bou...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
Unit Unit1; Interface Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; Type TForm1 = Class(TForm) Panel1: TPanel; Button1...
Wrapper设计模式能够把一个类的接口修改成另一个类所需要的接口，然后让本来因为接口不兼容的类能够在一起配合工作。 在 Delphi中，为了...
实现原理: 对比二进制位. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...
今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图: 步骤...
不多说了，看代码就应该明白了，曾经我遇到的问题，现在放出来大家共享！ 这里是工程文件的部分： 在DLL中封装MDI子窗体需要重写DLL入口...
在DLL中的子窗体不会响应Tab按键的，这个时候就需要手动去指定Tab键的操作，但是前提是主窗体要向这个窗体发送一个消息，一个Tab键按下...
SysUtils.DayOfWeek(); DateUtils.MonthOfTheYear(); DateUtils.WeekOfTheYear(); DateUtils.WeekOfTheMonth(); DateUtils.NthDayOfWeek(); DateUtils.DayOfTheYear(); DateUtils.DayOfTheMonth(...
看到好多人在试用了delphi for php之后匆忙做出delphi for php对中文支持不好的结论，这是很不负责任的，作为一个国际化的公司，当然不可能犯...
//Delphi 下的通配符查找函数 Function IsLike(ax, abc: String): Boolean; //ax是子串,abc是源串 Var abcstart, axstart, abclength, axlength: Integer; endpartabc, endpartax...
SysUtils.IsLeapYear(); DateUtils.IsInLeapYear(); unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;...
Program Project1;Uses Forms, Windows, Messages, SysUtils; {$R *.res} Begin {=================-start 隐藏主窗体=================} If LowerCase(ParamStr(1)) = '-start' Then Begin...
type TStringGridEx = class(TStringGrid); procedure TForm1.Button1Click(Sender: TObject); begin if TStringGridEx(StringGrid1).RowCount > 5 then TStringGridEx(StringGrid1).DeleteRow(5...
本实例演示如何映射和断开网络虚拟盘。 向窗体上添加两个TLabel组件、两个TEdit组件和两个TButton组件，设计完成的主界面如图1所示。 图1...
//在 type 区写入： TMyClass = class property s: string; end; //然后把光标放在其中，执行 Ctrl+Shift+C，可以自动生成以下代码： TMyClass = class private Fs...
Function DecimalToChineseCurrency(Decimal: String): String; Var s, t : TStringList; i, ti : Integer; tmps : String; IsDecimal : Integer; Begin IsDecimal := 0; ti := 0; For i := 1 To...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls; ...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
说明 通过下面的介绍，你将清楚的了解怎样从命今建入Delphi的IDE环境，并了解其详细的参数 Delphi的命今行参数对大小不敏感，对于参数 -...
Delphi里求表达式的值的另类方法（用ADO） [1]用一个ADOConnectioin1（已经连上一个数据库）和一个ADOQuery1 [2] With ADOQuery1 do close; SQl.clear; SQL.ADD...
//譬如 WINDIR 是表示系统目录的系统变量, 可以这样获取: var s: string; begin s := GetEnvironmentVariable('WINDIR'); ShowMessage(s); {C:/WINDOWS} end; (*-----------...
Type TRecord = Record Name: String[10]; address: String[50]; End; TRecordFile = File Of TRecord; Var Form1: TForm1; aRecordFile: TRecordFile; aRecordFileName: String = 'c:/PersonS.d...
网上对该问题的帖子很多，但是经常不是很全面，笔者在使用时也遇到了很多实际问题，比如参数不存在...
随着 Embarcadero 8 月 25 号发布 RAD Studio 2009 （Tiburon) 以来（Tiburon 的 RTM 日期可能要延后到 9 - 10 月），随着 Tiburon 全面支持 Unicode，现有的 D...
SysUtils.StrToDate(); SysUtils.StrToDateDef(); SysUtils.TryStrToDate(); SysUtils.StrToTime(); SysUtils.StrToTimeDef(); SysUtils.TryStrToTime(); SysUtils.StrToDateTime(); SysUtils.St...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
在自己的软件中经常需要得知运行本软件的系统支持的颜色数。例如有的软件在16Bits的颜色数的计算机上开发而成，程序的颜色调试得非常...
在所开以的应用软件中,有时我们对某些文件进行拷贝（如对数据库进行备份、制作安装程序），但是常用的一些语言却没有提供可直接进行...
所谓百叶窗效果,就是将画布分成若干个区域,各区域以渐进方式同时复制图形,就象翻动的百叶窗一样.以下就是一个显示特效的过程实例：首...
Geo.Cra[at]gmail[dot]com } unit OpticalFlowLK; interface uses Math, Windows, SysUtils, Variants, Classes, Graphics, unitypes, ColorConv; type TOpticalFlowLK = class private ImageOld...
从Delphi 5开始VCL中增加了一个新的Contnrs单元，单元中定义了８个新的类，全部都是基于标准的TList 类。 TList 类 TList 类实际上就是一个可以存...
CompareDateTime、CompareDate、CompareTime 都是对比时间的函数; CompareDate 只对比日期部分, CompareTime 之对比时间部分. 两个参数都是 TDateTime 类型, 如...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
我们在使用Delphi7开发应用系统过程中经常需要使用子窗口在主窗口上停靠的功能，如果对这一部分不熟练时，通常会到CSDN等网站寻找各种相...
动画剧本: 通过虚拟屏幕调整窗体运行后的位置; 鼠标对对虚拟屏幕双击放大、再单击会复原; 可以调整对虚拟屏幕的大小; 可以关掉或打开这...
回调函数： 回调函数是这样一种机制：调用者在初始化一个对象（这里的对象是泛指，包括OOP中的对象、全局函数等）时，将一些参数传递...
动画剧本: 添加控件后用 F11 激活 Object InspecTor 窗口; 可用 选择属性; 用 Tab 切换属性名和属性值; 用 Tab 切换到属性名后, 键入属性名的部分字...
SysUtils.DecodeDate(); SysUtils.DecodeDateFully(); SysUtils.DecodeTime(); DateUtils.DecodeDateTime(); DateUtils.DecodeDateDay(); DateUtils.DecodeDateWeek(); DateUtils.DecodeDateMont...
Delphi2009中容器类简介: 1.TList类： 一个可以存储指针的容器类，提供了一系列的方法和属性来添加，删除，重排，定位，存取和排序容器中的...
动画剧本: 在编辑模式下自定义界面; 在调试模式下自定义界面; 删除界面自定义....
//相关函数: SysUtils.FloatToDateTime(); SysUtils.TryFloatToDateTime(); 在 System 单元定义有: TDateTime = type Double; 看来 TDateTime 是一个 8 字节 64 位数据, 不过...
动画中的快捷键顺序: Ctrl+Alt+P 输入: V; 回车 Ctrl+Alt+P 输入: BU; 回车 输入: BU; 回车 输入: MEM; 回车...
一.旧pascal文件类型 用文件变量表示的文件类型,比如 F:text,F:File. 定义了三类:有类型,无类型,字符类型以及一些Delphi的文件操作函数.比如:A...
SysUtils.EncodeDateTime SysUtils.EncodeDate SysUtils.EncodeTime DateUtils.EncodeDateDay DateUtils.EncodeDateMonthWeek DateUtils.EncodeDateTime DateUtils.EncodeDateWeek DateUtils.Enc...
WithinPastYears、WithinPastMonths、WithinPastWeeks、WithinPastDays ... 判断两个时间差是否在一个指定范围内 DateUtils.WithinPastYears(); DateUtils.WithinPastMonths...
一、回顾历史 在c++中，对象可以创建在栈里，也可以创建在堆里。如： class CTestClass { public: CTestClass() { printf(Create); } void DoPrint() {} ~CTestCl...
一、概述 二、体验TList 三、体验TObjectList 四、TList 和TObjectList 的区别 五、后记 一、概述 等了几百年，Delphi终于原生的支持泛型了。以前使...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ImgList; type TForm...
DateUtils.CompareDate DateUtils.CompareDateTime DateUtils.CompareTime DateUtils.DateOf DateUtils.DateTimeToJulianDate DateUtils.DateTimeToModifiedJulianDate DateUtils.DateTimeToUnix...
本例相关图片: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList; type TForm1 = cla...
问题是这样开始的：我需要写一个COM+，用来连接不同的数据库。有的朋友可能会说，应该为每个数据库建立一个COM+，但是在我的系统里不能...
DateOf、TimeOf、YearOf、MonthOf、WeekOf、DayOf、HourOf、MinuteOf、SecondOf、MilliSecondOf函数用于提取时间成分 它们的参数都是一个 TDateTime, DateOf、Time...
1]选中对应的Form, 2]在Object InspecTor里的Name修改, 3]回车，即可. Delphi的IDE对应做了以下五处修改： {===================在.dpr===================} progra...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst; type TForm1 = class...
在Delphi中，也有与C相似的预编译指令，虽然该类指令只在当前的单个文件有效（也有可能是笔者未全面了解该类指令的真正用法），但是这...
一、提出问题 在将json-rpc中JSONObject翻译成Delphi代码的时候，我碰到以下语句： 1 Method[] methods = klass.getMethods();br / 2 br / 3 Method method = methods...
有些时候，我们需要我们的程序只运行一个实例，笔者自己作程序也有这样的情况，于是自已探究一番。忙活一阵后，总算小有收获，不敢...
问题来源: http://www.cnblogs.com/del/archive/2008/11/04/1326105.html#1533947 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Cla...
(*----下面这个程序介绍了我们在使用线程及未使用线程二种情况下，运行该程序的反 应。当点UsedThread按钮时，则建立一个线程，这时我们可...
一、启动界面，相比Delphi2007来说相对要简单。大家可以看到以前的CodeGear From Borland已经没有了，取而代之的是易博龙的Logo。Delphi2009启动时...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj...
IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay ... 判断时间是否合法 DateUtils.IsValidDateTime DateUtils.IsValidDate DateUtils.IsValidTime DateUtils.IsValidDate...
盼了N天了，每天都上CodeGear的网站上看，终于，今天下午看到Delphi for PHP试用版可以下载了，于是迫不及待地下载到我的机器上，准备第一时...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
中国的区域设置 ID 是 2052, 如果经常打开微软软件的安装目录应该经常见到. 获取很简单, 有现成的 API 函数: GetThreadLocale. begin ShowMessage(IntT...
动画剧本: 第一个变量: 输入: var; 然后执行 Ctrl+J ... 回车 第二个变量: 执行 Ctrl+J; 然后输入 v 后打空格键 ... 再 Tab ... 回车 第三个变量: 先书...
RecodeDateTime、RecodeDate、RecodeTime、RecodeYear ... 修改时间 DateUtils.RecodeDateTime(); DateUtils.RecodeDate(); DateUtils.RecodeTime(); DateUtils.RecodeYear(); DateUtils....
StartOfAYear ... StartOfTheYear ... EndOfAYear ... EndOfTheYear ... 每年、月、周、日的开始与结束的时间 {参数是指定的年、月、周、日} DateUtils.StartOfAY...
{从字符串中提取单词的函数} procedure StrToWordList(str: string; var List: TStringList); var p: PChar; i: Integer; begin if List = nil then List := TStringList.Create; Li...
之前我们可以定义方法类型, 然后通过方法类型的变量来使用方法, 譬如: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, ...
//相关函数: SysUtils.DateTimeToTimeStamp(); SysUtils.TimeStampToDateTime(); SysUtils.TimeStampToMSecs(); SysUtils.MSecsToTimeStamp(); Windows.GetTickCount; Windows.GetCurrentTim...
...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
一、弊端 在此先要感谢网友装配脑袋的提醒，在我关于Delphi中实现智能指针的第一篇文章Delphi2009初体验 - 语言篇 - 智能指针的实现里，装配...
IncYear、IncMonth、IncWeek、IncDay、IncHour、IncMinute、IncSecond、IncMilliSecond - 增时 DateUtils.IncYear(); DateUtils.IncMonth(); DateUtils.IncWeek(); DateUtils.IncDay();...
WeeksInAYear、WeeksInYear、DaysInAYear、DaysInAMonth、DaysInYear、DaysInMonth - 获取指定年月的周、日数 DateUtils.DaysInYear(); DateUtils.DaysInMonth(); DateUtils.Day...
...
六、体验泛型数组 七、体验泛型方法 八、体验自定义泛型类 九、体验泛型约束条件 1、类类型约束条件 2、对象类型约束条件 3、构造函数...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Li...
Delphi使用IdTcp控件，在IdTCPServer1Connect事件中对未显示出的Form操作发生死锁 例如：Form2中包含几个Button,1个listbox（如果什么控件都没有可能不...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TFor...
制作过程: 先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel. 本例测试了: TCategoryPanelGroup 的 ChevronAlignment 属...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Butto...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
已经有了: TList 、TQueue 、TStack 、TDictionary 为什么还有: TObjectList 、TObjectQueue 、TObjectStack 、TObjectDictionary ? 还记得 Classes.TList 和 Contnrs.TObjec...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ColorGrd; type TFor...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Butto...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButto...
ObjAuto 单元应该算是对 TypInfo 单元的功能扩展吧? 它提供了 5 个方法: GetMethods、GetMethodInfo、CreateMethodPointer、ReleaseMethodPointer、ObjectInvoke 通过...
TDictionary 类似哈希表. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...
//填充与描边 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Cre...
//纹理画刷 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:/temp/small.jpg'); tb := TGPTextureBru...
TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TQueue 主要有三个方法、一个属性: Enqueue(入列)、Dequeue...
//阴影画刷 var g: TGPGraphics; hb: TGPHatchBrush; begin g := TGPGraphics.Create(Canvas.Handle); hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYellow); {参数1是阴...
//实心画刷 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGreen); {参数是颜色} g.FillEllipse(sb, 11, 11,...
TQueue 和 TStack, 一个是队列列表, 一个是堆栈列表; 一个是先进先出, 一个是先进后出. TStack 主要有三个方法、一个属性: Push(压栈)、Pop(出栈...
Delphi 2009 新增了泛型容器单元: Generics.Collections, 同时还有一个 Generics.Defaults 单元做支持. Generics.Collections 包含了以下实用类: TList TQueue TSta...
IsLetter、IsUpper、IsLower、IsDigit、IsNumber IsLetter: {是否是个字母; 范围 A..Z 与 a..z} IsUpper: {是否是个大写字母; 范围 A..Z} IsLower: {是否是个小写字...
本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TFor...
//虚线样式 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),3); g.DrawLine(p, 11, 11, 333, 11); {实线} p....
//使用画刷建立画笔 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:/temp/small.jpg...
//画贝塞尔曲线 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.DrawBezier(p, 11,11, 88,333, 99,0, 222,...
ToUpper、ToLower - 字符与字符串的大小写转换 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,...
//复合画笔 var g: TGPGraphics; p: TGPPen; arr: array[0..9] of Single; {10 个元素可以分成 5 条线, 每条线需要起点和终点} begin g := TGPGraphics.Create(Canvas.Ha...
//多边形描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(M...
//笔对齐 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),5); sb := TGPSol...
我在Delphi盒子[ http://www.2ccc.com/ ]上找到了一个基于TCP协议的聊天及文件传书工具，于是把他改写成D2009版本的代码。 源代码下载地址： htt...
//饼图描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPP...
//线帽 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p:= TGPPen.Create(aclBlue, 8); p.SetStartCap(LineCapArrowAnchor); {起点线帽} p.SetEndCap(Li...
首先新建服务端。 如下图所示建立工程： 代码如下： 1.unit ServerUnit;br /2.br /3.interfacebr /4.br /5.usesbr /6. Windows, Messages, SysUtils, Variants, Classes,...
//画笔 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclRed, 2); {参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1} g.D...