Where is my way?

摘要： 语法:Property 属性名[索引值]:属性类型 read 方法名 write 方法名TArrayProperty = class private FValues:array[0..1000] of string; procedure SetValue(const index:Integer;const Value:string); function GetValue(const index:Integer):string; public property Values[x:integer]:string read GetValue write Se... 阅读全文

摘要： 索引说明来使多个属性共用一个访问方法来设置属性的值.属性声明中读、写属性的说明必须是方法,read后面的方法必须附加一个整型的参数,write后的过程方法必须在参数表的倒数第2个参数位置附加一个整形的参数type TProperty = class private FPosition: array[0..2] of Integer; function GetPosition(const Index:Integer):Integer; procedure SetPosition(const Index,Value:Integer); public... 阅读全文