Delphi程序设计之--惯用法
发布: 2008-5-20 09:43 | 作者: 不详 | 来源: Codesky.net | 查看: 22次 | 进入软件测试论坛讨论
2、两个互相求值得函数： IntToIdent（由Value求Name）和 IdentToInt（由Name求Value）；
具体应用可以参考：IdentToCursor 和 CursorToIdent。
3、应用：a、直接应用此树组定义方式和数组操纵函数；b、学习函数中，对数组访问和操纵的方式。c、学习标准的信息访问函数定义： function IntToIdent(Int: Longint; var Ident: string; const Map: array of TIdentMapEntry): Boolean; 具体返回的信息由参数方式返回回来，至于访问是否有效，则通过函数的布尔返回值加以判断。
{ No. 11 } 由特例到普通的发现
我通过对 Cursors 的定义和操作函数的跟踪发现：
1、如 { No. 10 }中介绍的，将Cursors的定义和一般操作通用化。
2、提供 Int 和 Ident互转化的函数。
3、提供数组列表信息循读取的函数： GetCursorValues；其中，使用了 { No. 3 } 中介绍的“事件指针 做参数”读取列表信息的方法。
{ No. 6 } 的补充：
例子：
procedure RegisterComponents(const Page: string;
ComponentClasses: array of TComponentClass);
begin
if Assigned(RegisterComponentsProc) then
RegisterComponentsProc(Page, ComponentClasses)
else
raise EComponentError.CreateRes(@SRegisterError);
end;
解读：
1、使用注册的方式，记录可使用的控件的类型等。
3、对于 RegisterComponentsProc 使用了{ No. 8 } 中“使用函数指针，减少单元项目包含”的方法，便于将来程序的扩充，版本的升级等。