2007 年 12月随笔档案 - 万一

Addr 函数 - 获取对象指针

摘要：procedure TForm1.FormCreate(Sender: TObject);var Str: string; pStr: PString;begin Str := 'Delphi 2007'; pStr := @Str; {用 @ 获取指针} ShowMessage(pStr^); {Delphi 2007} Str := 'Delphi 2008'; pStr := ... 阅读全文

posted @ 2007-12-31 21:23 万一阅读(5179) 评论(1) 推荐(0) 编辑

AbstractErrorProc - 抽象错误处理的指针

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type {父类} TBase = class procedure proc; virtual; abstract; {抽象方法} end; {子类} ... 阅读全文

posted @ 2007-12-31 18:16 万一阅读(4030) 评论(2) 推荐(0) 编辑

测试 TList

摘要：// Add、Count、Items[n] var List: TList; {声明 List} frmRed: TForm; {用于测试的对象, 这里选择了窗体} begin List := TList.Create; {建立列表} frmRed := TForm.C... 阅读全文

posted @ 2007-12-29 10:57 万一阅读(6935) 评论(8) 推荐(0) 编辑

判断两个字符串是否相似的函数 AnsiResemblesText 专题研究

摘要：//先糊涂一下 var b: Boolean; begin b := AnsiResemblesText('abc','apc'); ShowMessage(BoolToStr(b)); {True} b := AnsiResemblesText('abc','agc'); ShowMessage(BoolToStr(b)); {False} b := AnsiRes... 阅读全文

posted @ 2007-12-28 22:12 万一阅读(5027) 评论(2) 推荐(0) 编辑

软件版本称呼

摘要：alphal - 内部测试版 beta - 外部测试版 demo - 演示版 Enhance - 增强版或者加强版,属于正式版 Free - 自由版 Full version - 完全版, - 属于正式版 shareware - 共享版 Release - 发行版, - 有时间限制 Upgrade - 升级版 Retail - 零售版 Enterprise ... 阅读全文

posted @ 2007-12-28 21:11 万一阅读(2490) 评论(0) 推荐(0) 编辑

Delphi 中的字符串函数(6) - StrUtils 中的 Ansi 字符串函数

摘要：//从左右两端提取指定数目的字符串: AnsiLeftStr、AnsiRightStr var ss,s: AnsiString; begin ss := 'abcdefg'; s := AnsiLeftStr(ss, 2); ShowMessage(s); {ab} s := AnsiRightStr(ss, 2); ShowMessage(s); {fg} end... 阅读全文

posted @ 2007-12-28 17:02 万一阅读(7931) 评论(0) 推荐(0) 编辑

Delphi 中的字符串函数(5) - SysUtils 中的 Ansi 字符串函数

摘要：//对比字符串是不是一样: AnsiSameStr、AnsiSameText var ss,s: AnsiString; b: Boolean; begin ss := 'abc'; s := 'ABC'; b := AnsiSameStr(ss,s); {区分大小写} ShowMessage(BoolToStr(b)); {False} b := Ansi... 阅读全文

posted @ 2007-12-28 16:13 万一阅读(4229) 评论(0) 推荐(1) 编辑

System 中的数学函数

摘要：此页已更新到: System 单元下的公用函数目录//绝对值: Absvar d: Real; v: Variant;begin d := Abs(-1.2); ShowMessage(FloatToStr(d)); {1.2} v := '-100'; ShowMessage(v); {-100; v 是变体类型无需转换} v := Abs(v); ShowMessage(v);... 阅读全文

posted @ 2007-12-28 14:57 万一阅读(5479) 评论(0) 推荐(0) 编辑

Math 中常用的数学函数

摘要：//整除与余数: DivMod const a = 11; b = 3; var x,y: Word; begin ShowMessage(IntToStr(a div b)); {整除得 3} ShowMessage(IntToStr(a mod b)); {余数 2} DivMod(a,b,x,y); ShowMessage(IntToStr(x)); {3} ... 阅读全文

posted @ 2007-12-28 13:08 万一阅读(6601) 评论(1) 推荐(0) 编辑

返回整数的四种情况

摘要：//返回整数的四种情况const a = 1.8; b = -1.8;begin {返回比值大的最小整数:} ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1} {返回比值小的最大整数:} ... 阅读全文

posted @ 2007-12-28 13:04 万一阅读(3884) 评论(4) 推荐(0) 编辑

GDI+ 学习记录(30): MetaFile 文件操作

摘要：//显示 MetaFile 文件 var g: TGPGraphics; img: TGPImage; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\x.emf'); {文件要存在} g.DrawImage(img, 11, 11); img.Free; ... 阅读全文

posted @ 2007-12-27 23:13 万一阅读(4242) 评论(9) 推荐(0) 编辑

GDI+ 学习记录(29): 区域 - Region

摘要：//创建并填充区域 var g: TGPGraphics; sb: TGPSolidBrush; region: TGPRegion; {定义区域} begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGold); region := TGPRegion.Create(M... 阅读全文

posted @ 2007-12-27 23:12 万一阅读(4145) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(28): 图像颜色的数据格式 - PixelFormat

摘要：//指定位图颜色 var g,gbit: TGPGraphics; bit1,bit2: TGPBitmap; sb: TGPSolidBrush; begin //Self.Color := clWhite; g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,... 阅读全文

posted @ 2007-12-27 23:11 万一阅读(12381) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(27): Bitmap

摘要：//用 Bitmap 显示图像 var g: TGPGraphics; bit: TGPBitmap; begin g := TGPGraphics.Create(Canvas.Handle); bit := TGPBitmap.Create('c:\temp\x.jpg'); g.DrawImage(bit, 11, 11); {默认大小竟然和 1:1 不一样, 是不是分... 阅读全文

posted @ 2007-12-27 23:09 万一阅读(6038) 评论(2) 推荐(1) 编辑

GDI+ 学习记录(26): 显示图像 - Image

摘要：//显示图像 var g: TGPGraphics; img: TGPImage; begin g := TGPGraphics.Create(Self.Canvas.Handle); img := TGPImage.Create('c:\temp\x.jpg'); g.DrawImage(img,10,10); {参数2、3是坐标} img.Free; g.F... 阅读全文

posted @ 2007-12-27 23:08 万一阅读(7001) 评论(7) 推荐(0) 编辑

GDI+ 学习记录(25): 变换 - Transform

摘要：//比例变化 var g: TGPGraphics; p: TGPPen; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),0); rect := MakeRect(10,10,100,100); g.Draw... 阅读全文

posted @ 2007-12-27 22:34 万一阅读(7008) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(24): 输出文本<3>

摘要：//获取字体信息 var fontFamily: TGPFontFamily; font: TGPFont; begin fontFamily := TGPFontFamily.Create('宋体'); font := TGPFont.Create(fontFamily, 9, FontStyleRegular, UnitPixel); ShowMessage(Float... 阅读全文

posted @ 2007-12-27 22:33 万一阅读(3068) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(23): 输出文本<2>

摘要：//在矩形范围中显示文本 var g: TGPGraphics; fontFamily: TGPFontFamily; font: TGPFont; rectF: TGPRectF; p: TGPPen; sb: TGPSolidBrush; str: WideString; begin g := TGPGraphics.Create(Canvas.Handle)... 阅读全文

posted @ 2007-12-27 22:02 万一阅读(3978) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(22): 输出文本<1>

摘要：//输出文本 var g: TGPGraphics; sb: TGPSolidBrush; fontFamily: TGPFontFamily; font: TGPFont; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(0,0,255)); fon... 阅读全文

posted @ 2007-12-27 20:23 万一阅读(5100) 评论(3) 推荐(0) 编辑

GDI+ 学习记录(21): 颜色

摘要：//颜色透明度 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(128,255,0,0)); {128表示半透明} g.FillRectangle(sb,10,10,100,10... 阅读全文

posted @ 2007-12-27 19:14 万一阅读(4139) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(20): 绘图质量

摘要：//绘图质量 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.SetSmoothingMode(SmoothingModeHighQuality); {高质量} g.DrawLi... 阅读全文

posted @ 2007-12-27 19:13 万一阅读(3574) 评论(1) 推荐(0) 编辑

GDI+ 学习记录(19): 路径 - Path

摘要：//绘制与填充路径 var g: TGPGraphics; path: TGPGraphicsPath; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(128,255,0,0),4); sb := TGPS... 阅读全文

posted @ 2007-12-27 19:06 万一阅读(3952) 评论(3) 推荐(0) 编辑

GDI+ 学习记录(18): 闭合曲线 - ClosedCurve

摘要：//闭合曲线 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); ... 阅读全文

posted @ 2007-12-27 19:06 万一阅读(2871) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(17): 曲线 - Curve

摘要：//画曲线 var g: TGPGraphics; p: TGPPen; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),4); pts[0].X := 11; pts[0].Y := 11... 阅读全文

posted @ 2007-12-27 19:05 万一阅读(3272) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(16): 贝塞尔曲线 - Bezier、Beziers

摘要：//画贝塞尔曲线 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,111); {参数是画笔与 4 个点的... 阅读全文

posted @ 2007-12-27 19:04 万一阅读(4314) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(15): 多边形 - Polygon

摘要：//多边形描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; pts: array[0..4] of TGPPoint; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255))... 阅读全文

posted @ 2007-12-27 19:04 万一阅读(2732) 评论(5) 推荐(0) 编辑

GDI+ 学习记录(14): 饼图 - Pie

摘要：//饼图描边与填充 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(... 阅读全文

posted @ 2007-12-27 19:00 万一阅读(3206) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(13): 弧线 - Arc

摘要：//画弧线 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,0,0),2); g.DrawArc(p,11,32,300,200,0,90); {参数 2-5 是一个椭圆} p.SetColo... 阅读全文

posted @ 2007-12-27 18:58 万一阅读(3013) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(12): 矩形 - Rectangle、Rectangles

摘要：//填充与描边 var g: TGPGraphics; p: TGPPen; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,255,255)); p := TGPPen.Create(MakeColor(25... 阅读全文

posted @ 2007-12-27 18:56 万一阅读(3976) 评论(6) 推荐(0) 编辑

GDI+ 学习记录(11): 路径渐变画刷 - PathGradientBrush

摘要：//路径渐变画刷 var g: TGPGraphics; path: TGPGraphicsPath; pb: TGPPathGradientBrush; {声明渐变画刷} num: Integer; const colors: array[0..0] of TGPColor = (aclAqua); begin g := TGPGraphics.Create(Canva... 阅读全文

posted @ 2007-12-27 16:59 万一阅读(5863) 评论(2) 推荐(0) 编辑

GDI+ 学习记录(10): 线性渐变画刷 - LinearGradientBrush

摘要：//线性渐变画刷 var g: TGPGraphics; lb: TGPLinearGradientBrush; rect: TGPRect; begin g := TGPGraphics.Create(Canvas.Handle); rect := MakeRect(11,11,222,111); lb := TGPLinearGradientBrush.Create(... 阅读全文

posted @ 2007-12-27 16:49 万一阅读(4883) 评论(6) 推荐(0) 编辑

GDI+ 学习记录(9): 纹理画刷 - TextureBrush

摘要：//纹理画刷 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTextureBrush.Create(img)... 阅读全文

posted @ 2007-12-27 16:41 万一阅读(3993) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(8): 阴影画刷 - HatchBrush

摘要：//阴影画刷 var g: TGPGraphics; hb: TGPHatchBrush; begin g := TGPGraphics.Create(Canvas.Handle); hb := TGPHatchBrush.Create(HatchStyleHorizontal, aclRed, aclYellow); {参数1是阴影样式; 参数2是前景色; 参数3是背景色... 阅读全文

posted @ 2007-12-27 16:36 万一阅读(4834) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(7): 实心画刷 - SolidBrush

摘要：//实心画刷 var g: TGPGraphics; sb: TGPSolidBrush; begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGreen); {参数是颜色} g.FillEllipse(sb, 11, 11, 222, 111); sb.Free; ... 阅读全文

posted @ 2007-12-27 16:29 万一阅读(3159) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(6): 使用画刷建立画笔

摘要：//使用画刷建立画笔 var g: TGPGraphics; img: TGPImage; tb: TGPTextureBrush; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\small.jpg'); tb := TGPTexture... 阅读全文

posted @ 2007-12-27 15:02 万一阅读(2939) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(5): 复合画笔

摘要：//复合画笔 var g: TGPGraphics; p: TGPPen; arr: array[0..9] of Single; {10 个元素可以分成 5 条线, 每条线需要起点和终点} begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(MakeColor(255,255,0,0),100);... 阅读全文

posted @ 2007-12-27 14:45 万一阅读(2995) 评论(3) 推荐(0) 编辑

GDI+ 学习记录(4): 画笔对齐

摘要：//笔对齐 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 := TGPSolidBrush.Cr... 阅读全文

posted @ 2007-12-27 14:44 万一阅读(3079) 评论(1) 推荐(0) 编辑

GDI+ 学习记录(3): 虚线画笔 - Dash

摘要：//虚线样式 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.SetDashStyle(D... 阅读全文

posted @ 2007-12-27 14:10 万一阅读(5779) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(2): 画笔线帽 - Cap

摘要：//线帽 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p:= TGPPen.Create(aclBlue, 8); p.SetStartCap(LineCapArrowAnchor); {起点线帽} p.SetEndCap(LineCapRoundAnchor)... 阅读全文

posted @ 2007-12-27 13:51 万一阅读(5476) 评论(0) 推荐(0) 编辑

GDI+ 学习记录(1): 画笔 - Pen

摘要：//画笔 var g: TGPGraphics; p: TGPPen; begin g := TGPGraphics.Create(Canvas.Handle); p := TGPPen.Create(aclRed, 2); {参数1颜色; 参数2是笔宽, 笔宽是可选, 默认 1} g.DrawEllipse(p, 11, 11, 222, 111); p.Fr... 阅读全文

posted @ 2007-12-27 13:28 万一阅读(6109) 评论(12) 推荐(0) 编辑

GDI+ 起步

摘要：这是以前的内容, 应该从 http://www.cnblogs.com/del/archive/2008/06/06/1215319.html 开始! unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type ... 阅读全文

posted @ 2007-12-27 13:23 万一阅读(7630) 评论(20) 推荐(0) 编辑

颜色表

摘要：颜色样本十六进制名称与注释 #ffb3a7粉红：即浅红色。别称：妃色杨妃色湘妃色妃红色。 #ed5736妃色：妃红色。古同“绯”，粉红色。杨妃色、湘妃色、粉红皆同义。 #f00056品红：比大红浅的红色。 #f47983桃红：桃花的颜色，比粉红略鲜润的颜色。 #db5a6b海棠红：淡紫红色、较桃红色深一些，是非常妩媚娇艳的颜色。 #f20c00石榴红：石榴花的颜色，高色度和纯度... 阅读全文

posted @ 2007-12-25 00:29 万一阅读(62897) 评论(2) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(7): Split 函数

摘要：//字符串分割: Split var reg: TPerlRegEx; List: TStrings; begin List := TStringList.Create; reg := TPerlRegEx.Create(nil); reg.Subject := 'aaa,bbb,ccc,ddd'; reg.RegEx := ','; {这里可是运行相当复杂的分割符... 阅读全文

posted @ 2007-12-24 22:01 万一阅读(7935) 评论(15) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(6): EscapeRegExChars 函数

摘要：// EscapeRegExChars 函数可以自动为特殊字符加转义符号 \ var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'C++Builer'; reg.RegEx := reg.EscapeRegExChars('C+') + '{2}'; {相当于 'C\+{2}'}... 阅读全文

posted @ 2007-12-24 20:56 万一阅读(5081) 评论(0) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(5): Compile、Study

摘要：// Compile、Study var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.RegEx := 'ab'; reg.Options := [preCaseLess]; reg.Compile; {编译表达式} reg.Study; {Study 方法会检查是否编译, 如果没有编译则执行 ... 阅读全文

posted @ 2007-12-24 18:29 万一阅读(4974) 评论(0) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(4): Replace

摘要：// Replace var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.RegEx := 'ab'; reg.Replacement := '◆'; reg.Subject := 'ababab'; reg.ReplaceAll; ShowMessage(reg.Subject); //... 阅读全文

posted @ 2007-12-24 18:21 万一阅读(6191) 评论(0) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(3): Start、Stop

摘要：//设定搜索范围: Start、Stop var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'ababab'; reg.RegEx := 'ab'; reg.Replacement := '◆'; reg.Start := 1; reg.Stop := 2; w... 阅读全文

posted @ 2007-12-24 03:29 万一阅读(5354) 评论(0) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(2): 关于子表达式

摘要：// MatchedExpression 与 SubExpressions[0] var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007'; reg.RegEx := 'Delphi'; while reg.MatchAgain do... 阅读全文

posted @ 2007-12-22 11:46 万一阅读(7834) 评论(9) 推荐(0) 编辑

Delphi 正则表达式之TPerlRegEx 类的属性与方法(1): 查找

摘要：//查找是否存在 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '\d'; if reg.Match then ShowMessage('找到了') else ... 阅读全文

posted @ 2007-12-21 17:30 万一阅读(13580) 评论(8) 推荐(0) 编辑

Delphi 正则表达式语法(10): 选项

摘要：// preCaseLess: 不区分大小写, 相当于其他语言中的 i var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'abc ABC aBc'; reg.RegEx := 'abc'; reg.Replacement := '◆'; reg.Options := ... 阅读全文

posted @ 2007-12-21 16:44 万一阅读(7776) 评论(3) 推荐(0) 编辑

Delphi 正则表达式语法(9): 临界匹配 - 也叫"预搜索"与"反向预搜索"

摘要：//匹配右边 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'Delphi 6; Delphi 7; Delphi 2007; Delphi Net'; reg.RegEx := 'Delphi (?=2007)'; // ?= reg.Replacement := '◆... 阅读全文

posted @ 2007-12-21 16:43 万一阅读(6400) 评论(9) 推荐(0) 编辑

Delphi 正则表达式语法(8): 引用子表达式 - 也叫反向引用

摘要：//准备: 我们先写一个搜索所有英文单词的表达式var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 'one two three four five six seven eight nine ten'; reg.RegEx := '\b[A-Za-z]+\b'; //这个表达式就可以找到所有的英文单... 阅读全文

posted @ 2007-12-21 16:42 万一阅读(6323) 评论(0) 推荐(0) 编辑

Delphi 正则表达式语法(7): 匹配转义字符

摘要：// ? 号的意义是匹配 0-1 次, 如果需要匹配 ? 怎么办 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '你好吗? 还行!'; reg.RegEx := '\?|!'; // 加转义用的 \ reg.Replacement := '◆'; reg.Replac... 阅读全文

posted @ 2007-12-21 15:39 万一阅读(9424) 评论(0) 推荐(0) 编辑

Delphi 正则表达式语法(6): 贪婪匹配与非贪婪匹配

摘要：//贪婪匹配 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '标题内容'; reg.RegEx := ''; //将会全部匹配, 因为两头分别是: reg.Replacement := '◆'; reg.ReplaceAll; ShowMessage(reg.... 阅读全文

posted @ 2007-12-21 13:55 万一阅读(8714) 评论(11) 推荐(1) 编辑

Delphi 正则表达式语法(5): 边界

摘要：// \b 单词边界 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'Delphi Delphi2007 MyDelphi'; reg.RegEx := '\bDelphi\b'; //前后边界 reg.Replacement := '◆'; reg.Replace... 阅读全文

posted @ 2007-12-21 12:23 万一阅读(7757) 评论(5) 推荐(0) 编辑

Delphi 正则表达式语法(4): 常用转义字符与 .

摘要：// \d 匹配所有数字, 相当于 [0-9] var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '期待Delphi 2008 for Win32！'; reg.RegEx := '\d'; reg.Replacement := '◆'; reg.ReplaceAll; ... 阅读全文

posted @ 2007-12-21 11:34 万一阅读(13882) 评论(2) 推荐(0) 编辑

Delphi 正则表达式语法(3): 匹配范围

摘要：// [A-Z]: 匹配所有大写字母 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007 for Win32'; reg.RegEx := '[A-Z]'; reg.Replacement := '◆'; reg.ReplaceA... 阅读全文

posted @ 2007-12-21 10:56 万一阅读(11362) 评论(2) 推荐(0) 编辑

Delphi 正则表达式语法(2): 或者与重复

posted @ 2007-12-21 03:04 万一阅读(10746) 评论(1) 推荐(0) 编辑

Delphi 正则表达式语法(1): 关于大小写与中文

摘要：//替换一般字符串 var reg: TPerlRegEx; begin reg := TPerlRegEx.Create(nil); reg.Subject := '我爱DELPHI, 但Delphi不爱我!'; reg.RegEx := 'Delphi'; reg.Replacement := '◆'; reg.ReplaceAll; ShowMessag... 阅读全文

posted @ 2007-12-21 02:46 万一阅读(13504) 评论(8) 推荐(0) 编辑

Delphi 正则表达式起步

摘要：在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-expressions.info/delphi.html 直接下载: http://www.regular-expressions.info/download/TPerlRegEx.zip 安装方法: 1、先把解压的 TPerlRegEx... 阅读全文

posted @ 2007-12-21 00:56 万一阅读(52712) 评论(69) 推荐(1) 编辑

JScript 正则表达式语法表

摘要：字符描述 \ 标记下一个字符是特殊字符或文字。例如，"n" 和字符 "n" 匹配。"\n" 则和换行字符匹配。序列 "\\" 和 "\" 匹配，而 "\(" 则和 "(" 匹配。 ^ 匹配输入的开头。 $ 匹配输入的末尾。 * 匹配前一个字符零或多次。例如，"zo*" 与 "z" 或 "zoo" 匹配。 + 匹配前一个字符一次或多次。例如，"zo+" 与... 阅读全文

posted @ 2007-12-20 23:52 万一阅读(3483) 评论(2) 推荐(0) 编辑

无类型文件读写

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; ... 阅读全文

posted @ 2007-12-20 15:53 万一阅读(7948) 评论(6) 推荐(1) 编辑

常用 API 函数(12): 控件与消息函数

摘要：AdjustWindowRect给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小 AnyPopup判断屏幕上是否存在任何弹出式窗口 ArrangeIconicWindows排列一个父窗口的最小化子窗口 AttachThreadInput连接线程输入函数 BeginDeferWindowPos启动构建一系列新窗口位置的过程 BringWindowToTop将指定的窗口带至窗口列表顶部 Cas... 阅读全文

posted @ 2007-12-19 23:05 万一阅读(6477) 评论(10) 推荐(0) 编辑

常用 API 函数(11): 进程和线程函数

摘要：CancelWaitableTimer这个函数用于取消一个可以等待下去的计时器操作 CallNamedPipe这个函数由一个希望通过管道通信的一个客户进程调用 ConnectNamedPipe指示一台服务器等待下去，直至客户机同一个命名管道连接 CreateEvent创建一个事件对象 CreateMailslot创建一个邮路。返回的句柄由邮路服务器使用(收件人) CreateMutex创建一个互... 阅读全文

posted @ 2007-12-19 23:04 万一阅读(5177) 评论(2) 推荐(0) 编辑

常用 API 函数(10): 硬件与系统函数

摘要：ActivateKeyboardLayout激活一个新的键盘布局。键盘布局定义了按键在一种物理性键盘上的位置与含义 Beep用于生成简单的声音 CharToOem将一个字串从ANSI字符集转换到OEM字符集 ClipCursor将指针限制到指定区域 ConvertDefaultLocale将一个特殊的地方标识符转换成真实的地方ID CreateCaret根据指定的信息创建一个插入符(光标)，并将... 阅读全文

posted @ 2007-12-19 23:03 万一阅读(4095) 评论(0) 推荐(0) 编辑

常用 API 函数(9): 设备场景函数

摘要：CombineRgn将两个区域组合为一个新区域 CombineTransform驱动世界转换。它相当于依顺序进行两次转换 CreateCompatibleDC创建一个与特定设备场景一致的内存设备场景 CreateDC为专门设备创建设备场景 CreateEllipticRgn创建一个椭圆 CreateEllipticRgnIndirect创建一个内切于特定矩形的椭圆区域 CreateIC为专用设备... 阅读全文

posted @ 2007-12-19 23:00 万一阅读(3351) 评论(0) 推荐(0) 编辑

常用 API 函数(8): 绘图函数

摘要：AbortPath抛弃选入指定设备场景中的所有路径。也取消目前正在进行的任何路径的创建工作 AngleArc用一个连接弧画一条线 Arc画一个圆弧 BeginPath启动一个路径分支 CancelDC取消另一个线程里的长时间绘图操作 Chord画一个弦 CloseEnhMetaFile关闭指定的增强型图元文件设备场景，并将新建的图元文件返回一个句柄 CloseFigure描绘到一个路径时，关闭当... 阅读全文

posted @ 2007-12-19 22:59 万一阅读(4038) 评论(2) 推荐(1) 编辑

常用 API 函数(7): 位图、图标和光栅运算函数

摘要：BitBlt将一幅位图从一个设备场景复制到另一个 CopyIcon制作指定图标或鼠标指针的一个副本。这个副本从属于发出调用的应用程序 CopyImage复制位图、图标或指针，同时在复制过程中进行一些转换工作 CreateBitmap按照规定的格式创建一幅与设备有关位图 CreateBitmapIndirect创建一幅与设备有关位图 CreateCompatibleBitmap创建一幅与设备有关位... 阅读全文

posted @ 2007-12-19 22:58 万一阅读(3231) 评论(1) 推荐(0) 编辑

常用 API 函数(6): 菜单函数

摘要：AppendMenu在指定的菜单里添加一个菜单项 CheckMenuItem复选或撤消复选指定的菜单条目 CheckMenuRadioItem指定一个菜单条目被复选成"单选"项目 CreateMenu创建新菜单 CreatePopupMenu创建一个空的弹出式菜单 DeleteMenu删除指定的菜单条目 DestroyMenu删除指定的菜单 DrawMenuBar为指定的窗口重画菜单 Enabl... 阅读全文

posted @ 2007-12-19 22:57 万一阅读(3154) 评论(0) 推荐(0) 编辑

常用 API 函数(5): 文本和字体函数

摘要：AddFontResource在Windows系统中添加一种字体资源 CreateFont用指定的属性创建一种逻辑字体 CreateFontIndirect用指定的属性创建一种逻辑字体 CreateScalableFontResource为一种TureType字体创建一个资源文件，以便能用API函数AddFontResource将其加入Windows系统 DrawText将文本描绘到指定的矩形中... 阅读全文

posted @ 2007-12-19 22:54 万一阅读(4282) 评论(0) 推荐(0) 编辑

常用 API 函数(4): 打印函数

摘要：AbortDoc取消一份文档的打印 AbortPrinter删除与一台打印机关联在一起的缓冲文件 AddForm为打印机的表单列表添加一个新表单 AddJob用于获取一个有效的路径名，以便用它为作业创建一个后台打印文件。它也会为作业分配一个作业编号 AddMonitor为系统添加一个打印机监视器 AddPort启动"添加端口"对话框，允许用户在系统可用端口列表中加入一个新端口 AddPrinte... 阅读全文

posted @ 2007-12-19 22:53 万一阅读(5230) 评论(3) 推荐(0) 编辑

常用 API 函数(3): 文件处理函数

摘要：CloseHandle关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime对比两个文件的时间 CopyFile复制文件 CreateDirectory创建一个新目录 CreateFile打开和创建文件、管道、邮槽、通信服务、设备以及控制台 CreateFileMapping创建一个新的文件映射对象 DeleteFile删除指定文件 DeviceI... 阅读全文

posted @ 2007-12-19 22:51 万一阅读(5466) 评论(0) 推荐(0) 编辑

常用 API 函数(2): 消息函数

摘要：BroadcastSystemMessage将一条系统消息广播给系统中所有的顶级窗口 GetMessagePos取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置 GetMessageTime取得消息队列中上一条消息处理完毕时的时间 PostMessage将一条消息投递到指定窗口的消息队列 PostThreadMessage将一条消息投递给应用程序 RegisterWindowMessage获... 阅读全文

posted @ 2007-12-19 22:50 万一阅读(4184) 评论(0) 推荐(0) 编辑

常用 API 函数(1): 网络函数

摘要：WNetAddConnection创建同一个网络资源的永久性连接 WNetAddConnection2创建同一个网络资源的连接 WNetAddConnection3创建同一个网络资源的连接 WNetCancelConnection结束一个网络连接 WNetCancelConnection2结束一个网络连接 WNetCloseEnum结束一次枚举操作 WNetConnectionDialog启动一... 阅读全文

posted @ 2007-12-19 22:13 万一阅读(5180) 评论(1) 推荐(0) 编辑

Char 与 Byte

摘要：var c: Char; b: Byte; begin c := 'A'; ShowMessage(c); //A b := 65; ShowMessage(IntToStr(b)); //65 c := Chr(66); ShowMessage(c); //B b := Ord('B'); ShowMessage(IntToStr(b)); //6... 阅读全文

posted @ 2007-12-19 18:22 万一阅读(4444) 评论(1) 推荐(0) 编辑

文件 Copy

摘要：procedure FileCopy(const FileFrom, FileTo: string); var FromF,ToF: file; NumRead,NumWritten: Integer; Buffer: array[1..2048] of Byte; begin AssignFile(FromF, FileFrom); Reset(FromF, 1); A... 阅读全文

posted @ 2007-12-19 17:49 万一阅读(2142) 评论(0) 推荐(0) 编辑

结构化文件存取

摘要：纲要: AssignFile: 关联 Rewrite: 创建并打开一个新文件, 如已存在则覆盖 Reset: 打开已存在的文件; 追加也要用它先打开, 然后再移动指针; Append 是文本文件专用的 CloseFile: 关闭 FileSize: 记录数 FilePos: 返回文件的当前位置 Seek: 把文件指针移到指定位置(只用于结构化文件) Eof: 文件尾 Read:... 阅读全文

posted @ 2007-12-19 14:22 万一阅读(7480) 评论(17) 推荐(0) 编辑

文本文件读写

摘要：前言: Delphi 支持三种文件类型: 文本文件、记录文件、无类型文件。文本文件是以行为单位进行读、写的。由于每一行的长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。文本文件的打开需要两个步骤：1.文件变量与文件名关联；2.初始化读写。 1.文件变量与文件名关联: Ass... 阅读全文

posted @ 2007-12-19 12:06 万一阅读(15541) 评论(5) 推荐(0) 编辑

调用系统关于对话框

posted @ 2007-12-19 09:57 万一阅读(2946) 评论(1) 推荐(0) 编辑

格式化输出函数(3): FormatFloat

摘要：var s: string; begin //FormatFloat 的参数1是 String 格式指令, 参数2是实数类型 Extended s := FormatFloat('###.###',12.3456); //返回: 12.346 s := FormatFloat('000.000',12.3456); //返回: 012.346 s := Forma... 阅读全文

posted @ 2007-12-19 01:11 万一阅读(16717) 评论(6) 推荐(1) 编辑

格式化输出函数(2): FormatDateTime

摘要：var s: string; begin //FormatDateTime 的参数1是 String 格式指令, 参数2是 TDateTime 类型的时间 s := FormatDateTime('c', Now); {返回: 2007-12-18 23:56:05} {指令 c 表示用短格式显示日期与时间} s := FormatDateTime('d', Now); ... 阅读全文

posted @ 2007-12-19 00:50 万一阅读(18803) 评论(5) 推荐(0) 编辑

格式化输出函数(1): Format

摘要：var s: string; begin //指令类型 type s := Format('最大整数是: %d; 最小整数是: %d',[MaxInt,Low(Integer)]); //返回: 最大整数是: 2147483647; 最小整数是: -2147483648 { 提示: 格式指令必须以 % 开始, 不区分大小写, %d 代表一个整数; 第二个参数是一个变体数组 ... 阅读全文

posted @ 2007-12-18 23:15 万一阅读(16017) 评论(15) 推荐(0) 编辑

网页压缩、解压

摘要：Javascript Compressor Paste your code: Encoding: Fast Decode: Special Characters: Compress Decode 来自: http://www.cnblogs.com/szw/... 阅读全文

posted @ 2007-12-18 14:37 万一阅读(2490) 评论(0) 推荐(0) 编辑

jQuery 插件

摘要：概述 jQuery 是继 prototype 之后又一个优秀的 Javascript 框架。其宗旨是—写更少的代码,做更多的事情。它是轻量级的 js 库(压缩后只有21k) ，这是其它的 js 库所不及的，它兼容 CSS3，还兼容各种浏览器(IE 6.0+, FF 1.5+, Safari 2.0+, Opera 9.0+）。 jQuery 是一个快... 阅读全文

posted @ 2007-12-18 13:10 万一阅读(3479) 评论(0) 推荐(0) 编辑

ini 文件操作记要(2): 使用 TMemIniFile

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2007-12-18 10:18 万一阅读(7496) 评论(2) 推荐(0) 编辑

Delphi 中的哈希表(2): TStringHash

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2007-12-18 01:41 万一阅读(10485) 评论(1) 推荐(2) 编辑

Delphi 中的哈希表(1): THashedStringList

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2007-12-18 00:51 万一阅读(18873) 评论(2) 推荐(1) 编辑

Delphi 2007 的重构功能

摘要：Move 移动 1、将选定的静态函数从一个类移动到另一个类 2、将选中的类或接口移动到其他单元 Extract Interface 抽取接口将选定的函数抽取到一个新的接口中 Extract Superclass 抽取基类 ... 阅读全文

posted @ 2007-12-17 23:21 万一阅读(6705) 评论(1) 推荐(0) 编辑

ini 文件操作记要(1): 使用 TIniFile

摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ... 阅读全文

posted @ 2007-12-17 22:48 万一阅读(23300) 评论(15) 推荐(4) 编辑

鼠标相关操作

摘要：GetCursorPos; //获取 SetCursorPos; //设置 ClientToScreen; //转换 ScreenToClient; //转换阅读全文

posted @ 2007-12-17 18:08 万一阅读(2029) 评论(0) 推荐(0) 编辑

关于类的入门的例子(6): 类引用示例

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: TRadioGroup; ... 阅读全文

posted @ 2007-12-17 16:38 万一阅读(3892) 评论(7) 推荐(0) 编辑

关于类的入门的例子(5): override

摘要：unit Unit1; interface uses Classes, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; TBase = class ... 阅读全文

posted @ 2007-12-17 13:43 万一阅读(4474) 评论(38) 推荐(0) 编辑

关于类

摘要：free 并不能将对象置为 nil 阅读全文

posted @ 2007-12-17 13:26 万一阅读(2708) 评论(1) 推荐(0) 编辑

获取所有汉字与 Unicode 的对照表

摘要：var w: WideString; i: Integer; s: string; List: TStringList; begin List := TStringList.Create; for i := $4e00 to $9fa5 do begin s := #36 + IntToHex(i,4); {#36 是 $ 字符} w := Wide... 阅读全文

posted @ 2007-12-15 22:09 万一阅读(7826) 评论(2) 推荐(0) 编辑

判断浏览器对 JavaScript 版本的支持

摘要：JavaScript版本测试阅读全文

posted @ 2007-12-15 10:05 万一阅读(1801) 评论(0) 推荐(0) 编辑

WebBrowser 操作记要

摘要：WebBrowser1.GoHome; //到浏览器默认主页WebBrowser1.Refresh; //刷新WebBrowser1.GoBack; //后退WebBrowser1.GoForward; //前进WebBrowser1.Navigate('...'); //打开指定页面WebBrowser1.Navigate('about:blank'); //打开空页面//打开空页面, 并写入...WebBrowser1.Navigate('about:<head><title>标题</title><body& 阅读全文

posted @ 2007-12-13 16:16 万一阅读(42521) 评论(117) 推荐(4) 编辑

关于类的入门例子(4): property

摘要：//类单元 unit Person; interface type TPerson = class(TObject) private FName: string; FAge: Integer; public procedure SetName(const strName: string); procedure SetAge(const intAge... 阅读全文

posted @ 2007-12-13 15:30 万一阅读(4189) 评论(5) 推荐(0) 编辑

关于类的入门例子(3): Create 与 Destroy

摘要：//类单元 unit Person; interface uses Dialogs; type TPerson = class(TObject) private FName: string; FAge: Integer; public constructor Create(strName: string; intAge: Integer); d... 阅读全文

posted @ 2007-12-13 15:15 万一阅读(5514) 评论(8) 推荐(0) 编辑

关于类的入门例子(2): 数字盒子

摘要：//类单元 unit NumBox; interface type TNumBox = class private FCount: Integer; public procedure AddOne; procedure AddFive; procedure ZeroCount; function GetCount: Integer; e... 阅读全文

posted @ 2007-12-13 13:56 万一阅读(4093) 评论(21) 推荐(0) 编辑

关于类的入门例子(1): 继承窗体

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文

posted @ 2007-12-13 12:54 万一阅读(5816) 评论(8) 推荐(0) 编辑

获取本机IP地址

摘要：uses WinSock; function LocalIP: String; type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integ... 阅读全文

posted @ 2007-12-13 02:19 万一阅读(4639) 评论(2) 推荐(0) 编辑

文件管理类函数(2)

摘要：//查找一个文件 FileSearch var FileName,Dir,s: string; begin FileName := 'notepad.exe'; Dir := 'c:\windows'; s := FileSearch(FileName,Dir); if s'' then ShowMessage(s) //c:\windows\notepad.ex... 阅读全文

posted @ 2007-12-12 17:22 万一阅读(5987) 评论(3) 推荐(1) 编辑

文件管理类函数(1)

摘要：//判断文件是否存在 FileExists var f: string; begin f := 'c:\temp\test.txt'; if not FileExists(f) then begin //如果文件不存在 end; end; //判断文件夹是否存在 DirectoryExists var dir: string; begin dir := '... 阅读全文

posted @ 2007-12-12 13:05 万一阅读(8151) 评论(9) 推荐(3) 编辑

HTML5 将要移除的元素与属性

摘要：元素表:http://demo.yanue.net/HTML5element/移除的元素纯表现的元素：basefont，big，center，font, s，strike，tt，u；对可用性产生负面影响的元素：frame，frameset，noframes；产生混淆的元素：acronym... 阅读全文

posted @ 2007-12-12 11:06 万一阅读(3893) 评论(1) 推荐(0) 编辑

TColorToHex 与 HexToTColor

摘要：function TColorToHex(Color: TColor): string; begin Result := IntToHex(GetRValue(Color), 2) + IntToHex(GetGValue(Color), 2) + IntToHex(GetBValue(Color), 2); end; function HexToTColor(sC... 阅读全文

posted @ 2007-12-12 02:43 万一阅读(3202) 评论(7) 推荐(1) 编辑

RGBToHSB

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button... 阅读全文

posted @ 2007-12-12 02:22 万一阅读(3684) 评论(2) 推荐(0) 编辑

读取与修改字符串中的字符

摘要：var s: string; begin s := 'DelPhi'; ShowMessage(s[4]); //P s[4] := 'p'; ShowMessage(s); //Delphi end; 阅读全文

posted @ 2007-12-12 01:14 万一阅读(3270) 评论(0) 推荐(0) 编辑

磁盘类型 GetDriveType

摘要：//磁盘类型 GetDriveType var Drive: Char; DriveLetter: String[4]; begin for Drive := 'A' to 'Z' do begin DriveLetter := Drive + ':\'; case GetDriveType(PChar(Drive + ':\')) of DRIVE_... 阅读全文

posted @ 2007-12-12 01:06 万一阅读(5418) 评论(9) 推荐(0) 编辑

WinAPI: GetComputerName - 获取计算机名称

摘要：//声明: GetComputerName( lpBuffer: PChar; {缓冲区} var nSize: DWORD {缓冲区大小} ): BOOL; //举例: var arr: array[0..MAX_COMPUTERNAME_LENGTH] of char; d: DWORD; begin d := SizeOf(arr); GetComputerN... 阅读全文

posted @ 2007-12-12 00:09 万一阅读(4031) 评论(2) 推荐(1) 编辑

分割字符串 ExtractStrings

摘要：//分割字符串 ExtractStrings var s: String; List: TStringList; begin s := 'about: #delphi; #pascal, programming'; List := TStringList.Create; ExtractStrings([';',',',':'],['#',' '],PChar(s),List)... 阅读全文

posted @ 2007-12-11 23:20 万一阅读(15824) 评论(15) 推荐(2) 编辑

通配符函数 MatchesMask 的使用

摘要：uses Masks; procedure TForm1.Button1Click(Sender: TObject); var s: string; begin s := 'http://www.132435.com'; MatchesMask(s,'http://*'); //True MatchesMask(s,'HTTP://*.com')... 阅读全文

posted @ 2007-12-11 16:27 万一阅读(6303) 评论(4) 推荐(1) 编辑

文件路径相关的字符串操作

摘要：uses HTTPApp, Masks; procedure TForm1.Button1Click(Sender: TObject); var ss,s: string; begin //先提取一个文件名的字符串 ss := Application.ExeName; ShowMessage(ss); //C:\Documents and Settings\wy\My Do... 阅读全文

posted @ 2007-12-11 14:48 万一阅读(6040) 评论(1) 推荐(0) 编辑

TStringList 常用操作

摘要：//TStringList 常用方法与属性: var List: TStringList; i: Integer; begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换}... 阅读全文

posted @ 2007-12-10 23:17 万一阅读(43172) 评论(23) 推荐(5) 编辑

Delphi 的信息框相关函数

摘要：//ShowMessage: begin ShowMessage('提示内容'); {标题默认工程名, 如: Proect1} Application.Title := '警告'; {如果修改工程标题...} ShowMessage('提示内容'); {标题是'警告'} ShowMessage('第一行' + #13#10 + '第二行'); {提示信... 阅读全文

posted @ 2007-12-10 18:26 万一阅读(5443) 评论(12) 推荐(1) 编辑

Delphi 的运算符列表

摘要：分类运算符操作操作数结果类型范例算术运算符 + 加整数，实数整数，实数 X + Y - 减整数，实数整数，实数 Result - 1 * 乘整数，实数整数，实数 P * InterestRate / 实数除整数，实数实数 X / 2 div 整数除整数整数 Total div UnitSize mod 取模整数整数 Y mo... 阅读全文

posted @ 2007-12-10 15:01 万一阅读(34649) 评论(4) 推荐(1) 编辑

类型转换函数

摘要：函数功能 Chr 将一个有序数据转换为一个ANSI字符 Ord 将一个有序类型值转换为它的序号 Round 转换一个实型值为四舍五入后的整型值 Trunc 转换一个实型值为小数截断后的整型值 Int 返回浮点数的整数部分 IntToStr 将数值转换为字符串 IntToHex 将数值转换为十六进制数字符串 StrToInt 将字符串转换为一个整型数，如字符串不... 阅读全文

posted @ 2007-12-10 13:45 万一阅读(5624) 评论(1) 推荐(1) 编辑

变体数组

摘要：var Arr: array[0..3] of Variant; begin Arr[0] := 123; Arr[1] := 'wy'; Arr[2] := True; Arr[3] := VarArrayOf([1,'wanyi',1.5]); //变体数组的元素也可以是变体数组 ShowMessage(Arr[0]); //123, 不需要转换 ShowM... 阅读全文

posted @ 2007-12-10 13:21 万一阅读(4053) 评论(1) 推荐(1) 编辑

动态数组的使用

摘要：//例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间后和静态数组一样使用 StrArr := nil; ... 阅读全文

posted @ 2007-12-10 11:20 万一阅读(12586) 评论(7) 推荐(0) 编辑

静态数组的定义方法

摘要：//1. 标准方法： var MyArr: array[0..10] of Integer; //定义静态数组 //2. 可以使用非0下标： var MyArr: array[9..10] of Integer; //不能提倡，这样不容易与系统函数沟通 //3. 根据预定义类型来声明数组： type TMyArr = array[0..10] of Integer; /... 阅读全文

posted @ 2007-12-10 02:00 万一阅读(15655) 评论(9) 推荐(0) 编辑

汉字与 Unicode 转换

摘要：{感谢 robin（xuebin418@163.com）提供} //转换 function Str_Gb2UniCode(text: string): String; var i,len: Integer; cur: Integer; t: String; ws: WideString; begin Result := ''; ws := text; len :... 阅读全文

posted @ 2007-12-09 21:46 万一阅读(6244) 评论(4) 推荐(0) 编辑

RadioGroup 的使用

摘要：//获取 RadioGroup 项目名称 procedure TForm1.RadioGroup1Click(Sender: TObject); begin Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end; //当点击 RadioGroup 中的第几个选项时... procedure TForm1.RadioGroup1Clic... 阅读全文

posted @ 2007-12-08 19:58 万一阅读(8333) 评论(1) 推荐(1) 编辑

用消息实现窗体的 MouseDown 事件

摘要：unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button:... 阅读全文

posted @ 2007-12-08 19:00 万一阅读(3977) 评论(1) 推荐(0) 编辑

统计字数

摘要：//添加 Memo1、Label1、Label2、还有Button1 procedure TForm1.Button1Click(Sender: TObject); var s: string; i,sum,e,c,t: Integer; begin s := Memo1.Text; e := 0; c := 0; sum := Length(s); for i :... 阅读全文

posted @ 2007-12-08 18:52 万一阅读(1439) 评论(0) 推荐(0) 编辑

Delphi 中的颜色

摘要：//全以红色举例： //1. RGB 模式： Self.Color := $0000ff; //不过和HTML中的 #ff0000 是反的，应该叫 BGR。 //2. RGB 分值，譬如： Self.Color := RGB(255,0,0); //3. Delphi 中的标准模式： Self.Color := $000000ff; //其中低3位字节代表RGB(BGR)相应的颜色；... 阅读全文

posted @ 2007-12-08 12:37 万一阅读(13032) 评论(1) 推荐(1) 编辑

虚拟键码对照表

摘要：虚拟键码对应值对应键 VK_LBUTTON1鼠标左键 VK_RBUTTON2鼠标右键 VK_CANCEL3Cancel VK_MBUTTON4鼠标中键 VK_XBUTTON15 VK_XBUTTON26 VK_BACK8 Backspace VK_TAB9 Tab VK_CLEAR12 Clear VK_RETURN13 Enter VK_SHIFT16 Shift VK_... 阅读全文

posted @ 2007-12-07 22:52 万一阅读(71921) 评论(2) 推荐(1) 编辑