2011年3月29日 星期二

枚举可以这样遍历

万一| 万一的 Delphi 博客 |16:39:00

uses TypInfo; {以 TAlign 为例} procedure TForm1.Button1Click(Sender: TObject); var enum: TAlign; i: Integer; str: string; begin Memo1.Clear; for enum := Low(TAlign) to High(TAlign) do begin i := ord(enum); //Integer(enum) str ...

Delphi Labs: DataSnap - Passing "Plain Old Delphi Objects" Parameters

Pawel Glowacki| Pawel Glowacki |16:08:25

One of the cool new features in introduced in Delphi XE is a possibility to use TObject-descendant as parameter types in DataSnap server methods. I was planning to cover different possible parameter types that you can use in DataSnap applications,...

官方的正则表达式组件 RegularExpressions (5) : 强测试

万一| 万一的 Delphi 博客 |13:27:00

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); end...

官方的正则表达式组件 RegularExpressions (4) : 表达式选项

万一| 万一的 Delphi 博客 |10:05:00

TRegExOption = ( roNone, //无 roIgnoreCase, //不区分大小写 roMultiLine, //多行模式; 可使 ^ 和 $ 匹配每个行首或行尾 roExplicitCapture, //只捕获指定了名称或编号的子表达式 roCompiled, //预编译表达式; ?..

Delphi Labs: DataSnap XE - "Plain Old Delphi Object" Params

Embarcadero| CodeCentral Delphi Submissions |08:20:53

"Delphi Labs" DataSnap client and server projects demonstrating returning TObject-descendant from a server method. In other words passing "Plain Old Delphi Objects" or PODOs.This is the source code that comes wi...

Delphi Developer Days in Houston and DC/Baltimore plus free evening seminars

Embarcadero| EDN Delphi Feed |03:56:13

Delphi Labs: DataSnap XE - "Plain Old Delphi Object" Parameters

Embarcadero| EDN Delphi Feed |01:58:31