Hola...
Podrías saberlo si en la clase tienes alguna forma de hacer referencia al
TObjectList en cuestión, de otra forma, tendrías que crear una propiedad donde guardes ese índice:
Código Delphi
[-]
TMyObject = class(TObject)
private
FObjectList: TObjectList;
function GetIndex: Integer;
public
property ObjectList: TObjectList read FObjectList write FObjectList;
property Index: Integer read GetIndex;
end;
implementation
function TMyObject.GetIndex: Integer;
begin
if Assigned(FObjectList) then
Result := FObjectList.IndexOf(Self)
else
Result := -1
end;
MyObject := TMyObject.Create;
MyObject.ObjectList := AObjectList;
AObjectList.Add(MyObject);
TMyObject = class(TObject)
private
FIndex: Integer;
public
property Index: Integer read FIndex write FIndex;
end;
MyObject := TMyObject.Create;
MyObject.Index := AObjectList.Add(MyObject);
Saludos...