[[Delphius]]

Buenas a todos,
Desde hace unos dos o tres días (ya no recuerdo bien) que ando viendo esto de TCollection y me metí a ver código para ver si lo logro masticar un poco...
Llegué a un método que ha decir verdad me tiene casi sin dormir al no saberle como entrarle para comprenderlo.
El método en cuestión es GetPropName.

Código Delphi [-]
TCollection = class(TPersistent)
  private
    //...
    FPropName: string;
    //...
    function GetPropName: string;
    //...
  protected
    //...
    property PropName: string read GetPropName write FPropName;
    //...
end;

Código Delphi [-]
function TCollection.GetPropName: string;
var
  I: Integer;
  Props: PPropList;
  TypeData: PTypeData;
  Owner: TPersistent;
begin
  Result := FPropName;
  Owner := GetOwner;
  if (Result <> '') or (Owner = nil) or (Owner.ClassInfo = nil) then Exit;
  TypeData := GetTypeData(Owner.ClassInfo);
  if (TypeData = nil) or (TypeData^.PropCount = 0) then Exit;
  GetMem(Props, TypeData^.PropCount * sizeof(Pointer));
  try
    GetPropInfos(Owner.ClassInfo, Props);
    for I := 0 to TypeData^.PropCount-1 do
    begin
      with Props^[i]^ do
        if (PropType^^.Kind = tkClass) and
          (GetOrdProp(Owner, Props^[i]) = Integer(Self)) then
          FPropName := Name;
    end;
  finally
    Freemem(Props);
  end;
  Result := FPropName;
end;

La ayuda sobre este método privado es nula (al menos en D6). Y me he quedado intrigado que es lo que hace esto... Ustedes me dirán, "fijate en el código y entendé el algoritmo". Pero ya lo he examinado... y no se si se deba a que ando de mal dormir, o que se yo... pero no comprendo todas esas monerías, ¡Me pierdo en su codigo!.

Sobre la ayuda del tema llego a esto:

Empezado por Help. Info sobre la propiedad PropName

Specifies the name of the property that the collection implements.

property PropName: string;

Description

The GetNamePath method uses this protected property to assemble the name of the collection as it appears in the Object Inspector. It identifies the name of the property in the object returned by the protected GetOwner method that is implemented using this collection object.

Traducido más o menos a un castellano rescatable:

Especifica el nombre de la propiedad que las colecciones implementan.

El método GetNamePath utiliza esta propiedad protegida para montar el nombre de la colección mientras aparezca en el Inspector de Objetos.

Esa función tiene el siguiente código:

Código Delphi [-]
function TCollection.GetNamePath: string;
var
  S, P: string;
begin
  Result := ClassName;
  if GetOwner = nil then Exit;
  S := GetOwner.GetNamePath;
  if S = '' then Exit;
  P := PropName;
  if P = '' then Exit;
  Result := S + '.' + P;
end;

Y allí ya me pierdo peor todavia...

He estado haciendo una búsqueda tanto fuera como dentro del club pero no he encontrado algo que me aclare el tema.
Entiendo en forma general que uso tiene TCollection y como usarlo. Pero esto me desconcertó...

¿A que viene todo esto? Es que de vez en cuando, dedico unas horas del día a seguir estudiando la VCL y llegué a este desconocido para mi. Y me dije... bueno, me le tengo que hacer de amigo. Pero no se deja...

Se podría decir que es mi función _CopyObject

Me preguntaba si alguien me podría hechar una mano, un cable (como dicen algunos), un bicoque, lo que sea para explicarme más o menos ese malestar ¿filosófico? por el que estoy pasando con esta loca función.

Muchas gracias y perdonen por el rollo.

Saludos,