Delphius
12-05-2008, 05:43:12
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.
TCollection = class(TPersistent)
private
//...
FPropName: string;
//...
function GetPropName: string;
//...
protected
//...
property PropName: string read GetPropName write FPropName;
//...
end;
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!:o.
Sobre la ayuda del tema llego a esto:
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:
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:D
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:rolleyes:? por el que estoy pasando con esta loca función.
Muchas gracias y perdonen por el rollo.
Saludos,
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.
TCollection = class(TPersistent)
private
//...
FPropName: string;
//...
function GetPropName: string;
//...
protected
//...
property PropName: string read GetPropName write FPropName;
//...
end;
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!:o.
Sobre la ayuda del tema llego a esto:
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:
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:D
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:rolleyes:? por el que estoy pasando con esta loca función.
Muchas gracias y perdonen por el rollo.
Saludos,