文件名称：为子组件创建属性-gb∕t 21050-2019 信息安全技术 网络交换机安全技术要求
文件大小：1.19MB
文件格式：PDF
更新时间：2024-06-29 06:59:40
Delphi 组件
3.5 创建数组属性 有些属性会给自己添加索引，就象数组一样。比如，TMemo 的 Lines 属性就是可索引 的串列表，它构成 memo 的文本。你可以把它看作串数组进行处理。Lines 提供对较大的数 据集（memo 文本）中的特定元素（串）的自然访问。 数组属性的声明就象其它属性的声明一样，但以下情况例外： 声明包含一个或多个有指定类型的索引。这些索引可以是任何类型的索引。 属性声明的读、写部分，如果要指定，必须是方法，不能是域。 对于数组属性的读、写方法，相应于索引项，采用另外的参数。这些参数必须与声明中 指定的索引有相同的顺序和类型。 在数组属性和数组间有少许重要的区别。不象数组中的索引，数组属性的索引不必一定 是整数类型，比如，你可以按串对属性建立索引。另外，你可以只引用数组属性的单个元素， 而不是属性的全部元素。 type TDemoComponent = class(TComponent) private function GetNumberName(Index: Integer): string; public property NumberName[Index: Integer]: string read GetNumberName; end; ... function TDemoComponent.GetNumberName(Index: Integer): string; begin Result := 'Unknown'; case Index of -MaxInt..-1: Result := 'Negative'; 0: Result := 'Zero'; 1..100: Result := 'Small'; 101..MaxInt: Result := 'Large'; end; end; 3.6 为子组件创建属性 缺省地，当属性的值是另外一个组件时，通过添加另外那个组件的实例给窗体或者数据