上一页 1 ··· 41 42 43 44 45 46 47 48 49 ··· 215 下一页
摘要: 阅读全文
posted @ 2010-01-18 11:24 万一 阅读(5868) 评论(7) 推荐(1) 编辑
摘要: 窗体上放一个 BitBtn1, 设置其属性 Kind 的值为 bkClose; 然后运行看看...结果是: 不仅自动更改了标题、图标, 并且还真的有了关闭窗口的功能.实话说, 这之前我不知道这个小功能.TBitBtn 的 Kind 属性对应的是一个枚举:TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bk... 阅读全文
posted @ 2010-01-16 13:22 万一 阅读(5617) 评论(2) 推荐(1) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2010/01/09/1643019.html#1746542procedure TForm1.FormPaint(Sender: TObject);var x,y: Integer; str: string;begin x := 10; y := 10; str := '今天'; Canvas.Font... 阅读全文
posted @ 2010-01-14 09:58 万一 阅读(5278) 评论(12) 推荐(0) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2009/01/09/1373051.html#1743248procedure TForm1.Button1Click(Sender: TObject);var Bits: array[0..5] of TBitmap; { 假定有 6 张相同大小的图片需要拼合 } i,n,x,y: Integer; { n ... 阅读全文
posted @ 2010-01-09 16:44 万一 阅读(3354) 评论(13) 推荐(0) 编辑
摘要: function CopyFileEx( lpExistingFileName: PWideChar; { 源文件 } lpNewFileName: PWideChar; { 新的目标文件 } lpProgressRoutine: TFNProgressRoutine; { 回调函数; 每复制 64K 调用一次 } lpData: Pointer; { 给回调函数的参数 } pbCanc... 阅读全文
posted @ 2010-01-08 21:44 万一 阅读(6557) 评论(5) 推荐(1) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584660.html#1742606使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:uses IOUtils;procedure TForm1.Button1Click(Sender: TObject);const SourceDir =... 阅读全文
posted @ 2010-01-08 12:24 万一 阅读(10449) 评论(18) 推荐(0) 编辑
摘要: 问题来源: http://www.cnblogs.com/del/archive/2010/01/07/1641084.html#1742127程序使用了 GDI+ 的新接口: http://www.cnblogs.com/del/archive/2009/12/11/1621790.htmluses GdiPlus;procedure TForm1.Button1Click(Sender: TO... 阅读全文
posted @ 2010-01-07 17:53 万一 阅读(6706) 评论(2) 推荐(0) 编辑
摘要: //IRegex 的属性与方法 IRegex.GetGroupNames; { 子表达式编号数组, 譬如有两个子表达式, 会得到 0,1,2; 这基本无用 }IRegex.GetGroupNumbers; { 同上, 只是获取的是整数数组 }IRegex.GroupNameFromNumber(); { 应该是从子表达式编号获取子表达式的名称; 但没有实现, 来回都是编号 }IRegex.Grou... 阅读全文
posted @ 2010-01-07 13:31 万一 阅读(3036) 评论(0) 推荐(1) 编辑
摘要: 主要成员有: IRegex、ICapture、IMatch、IMatchCollection、IGroup、IGroupCollection先看: ICapture; 常用的 IMatch、IGroup 都是从它继承而来; 作为一个底层接口一般不会被直接使用.它为 IMatch、IGroup 提供了三个属性: Index、Length、Value; 还有一个 ToString 方法也是获取 Val... 阅读全文
posted @ 2010-01-07 11:46 万一 阅读(3280) 评论(14) 推荐(1) 编辑
摘要: 假如有这样一串文本: AAA1 BBB2 AA11 BB22 A111 B222 AAAA可以用表达式: [A-Za-z]+\d+ 提取到前六个字串. 测试代码:uses RegularExpressions;procedure TForm1.FormCreate(Sender: TObject);var Regex: IRegex; { RegularExpressions 提倡使用 IRegex 而不是 TRegex} Match: IMatch; { IMatch 表示匹配到的若干个字串中的一个 }begin { 构建表达式 } Regex := TRegex.Create('[ 阅读全文
posted @ 2010-01-07 10:08 万一 阅读(3072) 评论(0) 推荐(0) 编辑
上一页 1 ··· 41 42 43 44 45 46 47 48 49 ··· 215 下一页