如何给数组变量定属性???

Question

Tcard = Class(Tobject)
private 
   CardNo array[0..6] of char;
public
property FCardNO array[0..6] of char read CardNO write CardNO; //??这样写不对,该怎么样写才对呢?
如上所示???

Answer 1

不对啊property FCardNO array[Index: Integer] of char;输完之后按shift+ctrl+c

Answer 2

property FCardNO array[Index: Integer] of char;或者将数组声明为类TMY = array[0..6] of char;
property FCardNO TMY read...;

Answer 3

Tcard = Class(Tobject)
private 
  FCardNo array[0..6] of char;
public
  property CardNO[Index: Integer]: Char; { 按shift+ctrl+c }刚睡醒，眼神儿不好，不好意思啊
顺便说一下，带这种形式的index的属性是不能放在published段声明的

Answer 4

TArrayCardNo = array [0..6] of char;
Tcard = Class(Tobject)
private 
   CardNo TArrayCardNo ;
public
property FCardNO TArrayCardNo  read CardNO write CardNO;

Answer 5

TArrayCardNo = array [0..6] of char;
Tcard = Class(Tobject)
private 
   CardNo TArrayCardNo ;
public
property FCardNO TArrayCardNo  read CardNO write CardNO;