Получение индекса # элемента TCollection при добавлении в TCollection

Question

Я знаю, что когда я добавляю элемент коллекции в коллекцию, индекс начинается с нуля.Я хотел бы сделать это на основе одного и показать значение в свойстве под названием 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;

Answer 1

результат: = Index + 1 должен сделать это, если я правильно понимаю ваши потребности