冀公网安备 13098202000212号 2011年3月28日 星期一
官方的正则表达式组件 RegularExpressions (3) : TMatchEvaluator
万一| 万一的 Delphi 博客 |22:36:00
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, RegularExpressions; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sen...
官方的正则表达式组件 RegularExpressions (2) : 子表达式
万一| 万一的 Delphi 博客 |21:42:00
uses RegularExpressions; const pattern = '([A-Z]+)(\d+)'; //其三个子表达式分别是：[A-Z]+\d+ [A-Z]+ \d+ txt = 'AAA1 BBB2 AA11 BB22 A111 B222 AAAA'; //测试用的目标文本 procedure TForm1.Button1Click(Sender: TObject); var match: TMatch; gr...
官方的正则表达式组件 RegularExpressions (1)
万一| 万一的 Delphi 博客 |20:55:00
刚刚试了一下 DelphiXE 新增的正则表达式组件, 它基于 C 语言实现 PCRE 库实现, 感觉设计的非常好。其主要的 TRegEx 被设计为一个结构(而不是类), 可能是基于效率的考虑；不过它主要调用了 TPerlRegEx 类的功能。TRegEx 的五个主要方法 IsMatch()、Match()、Matches(...
官方的正则表达式组件 RegularExpressions (1) : 基本应用
万一| 万一的 Delphi 博客 |20:55:00
刚刚试了一下 DelphiXE 新增的正则表达式组件, 它基于 C 语言编写的 PCRE 库实现, 感觉设计的非常好。其主要的 TRegEx 被设计为一个结构(而不是类), 可能是基于效率的考虑；不过它主要调用了 TPerlRegEx 类的功能。TRegEx 的五个主要方法 IsMatch()、Match()、Matche...
dexplore.exe shut down fixer
Embarcadero| CodeCentral Delphi Submissions |10:40:46
A lot of people (myself included) have had problems with a process called dexplore.exe stopping windows from shutting down. One way this can happen is when Embarcadero Rad Studio uses Microsoft’s dexplore help system – when Rad Studio...
2011年3月25日 星期五
NativeXml (12)：NativeXmlObjectStorage
万一| 万一的 Delphi 博客 |22:59:00
安装包中的 NativeXmlObjectStorage.pas 是 NativeXml 的扩展应用，可以把组件、对象和窗体序列化为 Xml 文件。其中方便使用的是两个类：TsdXmlObjectWriter、TsdXmlObjectReader，也可使用下面三组函数：ComponentCreateFromXmlFile();ComponentCreateFromXmlNode()...
UserAgent detection - for Blog on iPhone
Bob Swart| Dr.Bob’s Delphi Notes |21:55:02
As I wrote in a previous blog post, my blog can now also be read on the iPhone, iPad and iPod Touch, using IntraWeb and the TMS iPhone controls for IntraWeb.
NativeXml (11)：浮点数的有效位数
万一| 万一的 Delphi 博客 |21:21:00
uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; fVal: Double; begin fVal := 123.456789; xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; //xml.FloatSignificantDigits...
NativeXml (10)：编辑
万一| 万一的 Delphi 博客 |20:44:00
uses NativeXml; var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item>...
NativeXml (9)：读取
万一| 万一的 Delphi 博客 |17:05:00
var xml: TNativeXml; const xmlStr = '<?xml version="1.0" encoding="UTF-8"?>' + '<List>' + '<item ID="No.1" age="11">张三</item>' + '<item ID="No.2" age="22">李四</item>' + '&l...
代开发票打印系统完整源代码
DELPHI盒子| Delphi盒子 |16:03:00
代开发票打印系统完整源代码 自己仿税务软件开发的一个源代码软件，已经几年没动过软件了，转行了，源代码放着也是放着，供献给大家，参考，东西写得不好，献丑了。 有问题可以联系我 QQ:280534828 yangkaer@qq.com 源代码已经上传，请站长审核添加上去
NativeXml (8)：其它添加
万一| 万一的 Delphi 博客 |13:19:00
uses NativeXml; procedure TForm1.Button1Click(Sender: TObject); var xml: TNativeXml; node: TXmlNode; begin xml := TNativeXml.CreateName('List'); xml.XmlFormat := xfReadable; node := xml.NodeNewTextType('注释名称', '注释内容', xeComment...
Help Update 2 for Delphi XE and C++Builder XE
Embarcadero| EDN Delphi Feed |08:05:11
Cindy components pack v4.01
Embarcadero| CodeCentral Delphi Submissions |02:39:17
Package with more than 40 components for all delphi versions to build windows applications. - Gradient controls (buttons, speedbuttons, panels) with features like colored bevels, wallpaper, shadowText. TcyCommunicate and TcyCommRoomConnector allow...
2011年3月24日 星期四
BusinessSkinForm v. 9.30
Embarcadero| CodeCentral Delphi Submissions |04:52:23
BusinessSkinForm VCL library help you to create applications with skins support for forms, menus, hints, many standard and DB controls. You can create your skins with special editor. Develop your business applications with BusinessSkinForm VCL!Fea...