Delphi操作XML:TXMLNode类(四)

4.1.16.90.ReadPen

　　 procedure ReadPen(const
AName: UTF8String; APen: TPen); virtual;

　　从名字为 AName 的子节点中读取 Color 、 Mode 和 Style 信息到 TPen 类型的 APen 中。

4.1.16.91.ReadString

　　 function ReadString(const
AName: UTF8String; const ADefault: UTF8String): UTF8String; virtual;

　　从名字为 AName 的子节点中读取并且转换值为 UTF8 字符串 (UTF8String) 类型，如果子节点没有找到，或者不能转换，返回缺省值 ADefault 。

4.1.16.92.ReadUnicodeString

　　 function
ReadUnicodeString(const AName: UTF8String; const ADefault: UnicodeString):
UnicodeString; virtual;

　　从名字为 AName 的子节点中读取并且转换值为 Unicode 字符串 (UnicodeString) 类型，如果子节点没有找到，或者不能转换，返回缺省值 ADefault 。

4.1.16.93.SortChildNodes

　　 procedure
SortChildNodes(Compare: CompareFunction; Info: TPointer);

　　排序此节点的子节点。提供自定义的节点比较函数 Compare ，或者在父文档附加一个事件处理程序 OnNodeCompare ，以提供自定义排序。如果没有给出比较函数 (nil) ， OnNodeCompare 也没有定义， SortChildNodes 只会按名称排序（升序，不区分大小写）子节点。指针参数的信息可以被用来传递任何自定义信息的比较功能。信息的默认值是空 (nil) 。

4.1.16.94.ToUnicodeString

　　 function
ToUnicodeString(const s: UTF8String): UnicodeString;

　　使用 ToUnicodeString 转换 UTF8String 格式字符串到 UnicodeString 格式。

4.1.16.95.ValueAsBoolDef

　　 function
ValueAsBoolDef(ADefault: boolean): boolean; virtual;

　　转换节点值为布尔 (boolean) 类型，如果不能转换，或者值没有找到，返回缺省值 ADefault 。

4.1.16.96.ValueAsDateTimeDef

　　 function
ValueAsDateTimeDef(ADefault: TDateTime): TDateTime; virtual;

　　转换节点值为日期时间 (TDateTime) 类型，如果不能转换，或者值没有找到，返回缺省值 ADefault 。

4.1.16.97.ValueAsFloatDef

　　 function
ValueAsFloatDef(ADefault: double): double; virtual;

　　转换节点值为双精度浮点 (double) 类型，如果不能转换，或者值没有找到，返回缺省值 ADefault 。

4.1.16.98.ValueAsInt64Def

　　 function
ValueAsInt64Def(ADefault: int64): int64; virtual;

　　转换节点值为 64 位整数 (int64) 类型，如果不能转换，或者值没有找到，返回缺省值 ADefault 。

4.1.16.99.ValueAsIntegerDef

　　 function
ValueAsIntegerDef(ADefault: integer): integer; virtual;

　　转换节点值为整数 (integer) 类型，如果不能转换，或者值没有找到，返回缺省值 ADefault 。

4.1.16.100.WriteAttributeBool

　　 procedure
WriteAttributeBool(const AName: UTF8String; AValue: boolean; ADefault:
boolean); virtual;

　　如果名称为 AName 的属性存在，那么将其值设置为布尔值 AValue 。如果它不存在，则创建一个名字为 AName 的新属性，并转换 AValue 为 “True” 或 “False” 的布尔值。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加属性。

4.1.16.101.WriteAttributeDateTime

　　 procedure WriteAttributeDateTime(const
AName: UTF8string; AValue: TDateTime; ADefault: TDateTime); virtual;

4.1.16.102.WriteAttributeFloat

　　 procedure
WriteAttributeFloat(const AName: UTF8String; AValue: double; ADefault: double);
virtual;

4.1.16.103.WriteAttributeInt64

　　 procedure
WriteAttributeInt64(const AName: UTF8String; const AValue: int64; ADefault:
int64); virtual;

4.1.16.104.WriteAttributeInteger

　　 procedure
WriteAttributeInteger(const AName: UTF8String; AValue: integer; ADefault:
integer); virtual;

　　如果名称为 AName 的属性存在，那么将其值设置为整数 AValue 。如果它不存在，则创建一个名字为 AName 的新属性，并转换 AValue 为字符串。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加属性。

4.1.16.105.WriteAttributeString

　　 procedure
WriteAttributeString(const AName: UTF8String; const AValue: UTF8String; const
ADefault: UTF8String); virtual;

　　如果名称为 AName 的属性存在，那么将其值设置为 UTF8 字符串 AValue 。如果它不存在，则创建一个名字为 AName 的新属性，并写入 AValue 为 UTF8 字符串。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加属性。

4.1.16.106.WriteBool

　　 procedure WriteBool(const
AName: UTF8String; AValue: boolean; ADefault: boolean); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为布尔 (boolean) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.107.WriteBrush

　　 procedure WriteBrush(const
AName: UTF8String; ABrush: TBrush); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为画刷 (TBrush) 类型 AValue ，包括 Color 和 Style 。如果名字为 AName 的子节点不存在，创建它。

4.1.16.108.WriteColor

　　 procedure WriteColor(const
AName: UTF8String; AValue: TColor; ADefault: TColor); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为颜色 (TColor) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.109.WriteDateTime

　　 procedure
WriteDateTime(const AName: UTF8String; AValue: TDateTime; ADefault: TDateTime);
virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为日期时间 (TDateTime) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。这个 XML 格式依照 W 3C 的日期时间说明。

4.1.16.110.WriteFloat

　　 procedure WriteFloat(const
AName: UTF8String; AValue: double; ADefault: double); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为双精度浮点 (double) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.111.WriteFont

　　 procedure WriteFont(const
AName: UTF8String; AFont: TFont); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为字体 (TFont) 类型 AFont ，包括 Color 、 Size 和 Style 。如果名字为 AName 的子节点不存在，创建它。

4.1.16.112.WriteHex

　　 procedure WriteHex(const
AName: UTF8String; AValue: integer; Digits: integer; ADefault: integer);
virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为 16 进制 (hexadecimal) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.113.WriteInt64

　　 procedure WriteInt64(const
AName: UTF8String; AValue: int64; ADefault: int64); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为 16 位整数 (int64) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.114.WriteInteger

　　 procedure
WriteInteger(const AName: UTF8String; AValue: integer; ADefault: integer);
virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为整数 (integer) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.115.WritePen

　　 procedure WritePen(const
AName: UTF8String; APen: TPen); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为画笔 (TPen) 类型 APen ，包括 Color 、 Mode 和 Style 。如果名字为 AName 的子节点不存在，创建它。

4.1.16.116.WriteString

　　 procedure WriteString(const
AName: UTF8String; const AValue: UTF8String; const ADefault: UTF8String);
virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为 UTF8 字符串 (UTF8String) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。

4.1.16.117.WriteToString

　　 function WriteToString:
UTF8String; virtual;

　　调用 WriteToString 可以存储 XML 节点到 UTF8 字符串 (UTF8String) 。该方法可用于存储单个节点，而不是完整的 XML 文档的。

4.1.16.118.WriteUnicodeString

　　 procedure
WriteUnicodeString(const AName: UTF8String; const AValue: UnicodeString; const
ADefault: UnicodeString); virtual;

　　增加或替换名字为 AName 的子节点，增加或者设置它的值为 Unicode 字符串 (UnicodeString) 类型 AValue 。如果 ADefault = AValue ，并且 WriteOnDefault = FALSE 时，不添加子节点。