添加到TCollection时获取TCollection项的索引号

时间:2010-12-29 00:00:18

标签: delphi indexing tcollection tcollectionitem

我知道当我将一个集合项添加到集合时,索引是从零开始的。我想将它作为一个基础,并在名为Id的属性中显示值。有人可以告诉我如何在代码中解决这个问题吗?

TCVSClassItem = class(TCollectionItem)  
private  
 fId: Integer;  
 function GetId: Integer;  
public  
published  
 property Id: Integer read GetId;  
end;  

function TCVSClassItem.GetId: Integer;  
begin  
 result:=  ????  
end;

1 个答案:

答案 0 :(得分:4)

结果:=如果我正确理解您的需求,指数+ 1应该这样做