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 万一 阅读(2125) |
评论 (1) 编辑
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 万一 阅读(2345) |
评论 (2) 编辑
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 万一 阅读(3106) |
评论 (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 万一 阅读(2903) |
评论 (0) 编辑
管理