是否可以有两个同名的属性？

Question

是否可以有两个同名的属性？

property  Cell [Cl, Rw: Integer]: string   read getCell  write setCell;
property  Cell [ColName: string; Rw: Integer]: string read getCellByCol write setCellByCol;

好吧，我试过了，编译器不让我这样做，但也许有一个技巧......？

Answer 1

不-但又一次：是的...有点...

function    getP1(Cl,Rw : integer) : string;
procedure   setP1(C1,Rw : integer ; const s : string);
function    getP2(const Cl : string ; Rw : integer) : string;
procedure   setP2(const C1 : string ; Rw : integer ; const s : string);
property    P1[Cl,Rw : integer] : string read getP1 write setP1; default;
property    P1[const Cl : string ; Rw : integer] : string read getP2 write setP2; default;

诀窍是将属性命名为相同，并用“默认”子句标记两者。然后您可以使用各种参数访问相同的属性名称：

P1['k',1]:=P1[2,1];
P1[2,1]:=P1['k',1];

编译良好。不知道这是否受到官方支持或是否存在其他问题，但它编译良好并调用正确的 getter/setter（在 Delphi 2010 中测试）。

这当然只有在你还没有为你的类使用默认属性的情况下才有效，因为我能够使它工作的唯一方法是通过默认子句。