Dudas con el funcionamiento del RegisterClasses en Delphi 6.0

[[Al González]]

¡Buen día a todos!

En vista de lo intrigante de este caso, decidí escudriñar un poco en la mejor referencia que hay de Delphi: el código fuente de su biblioteca.

GetClass llama indirectamente al método clase ClassNameIs heredado de TObject. Me di cuenta que éste es sensible al tamaño. De hecho si hago esta prueba:

RegisterClasses ([TForm1]);
C := GetClass ('TForM1');

C obtiene un valor Nil, porque se llama a GetClass con un parámetro que no es exactamente el mismo nombre que se le dio a la clase registrada.

No estoy seguro si en Delphi 5 era insensible al tamaño (habría que ver el código de TObject.ClassNameIs en la unidad System.pas de Delphi 5). Pero esa pudiera ser la causa del problema aquí planteado.

Si este no fuera el caso, todavía cabe la posiblidad de que GetClass devuelva Nil por algo que encontré en el método TRegGroups.GetClass de la unidad Classes.pas:

function TRegGroups.GetClass(const AClassName: string): TPersistentClass;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to FGroups.Count - 1 do
    with TRegGroup(FGroups [ I ]) do
    begin
      if Active then Result := GetClass(AClassName);
      if Result <> nil then Exit;
    end;
end;

Tal vez ese If Active evalúa a False.

Seguiremos investigando .

Al González .

[roman]

Empezado por Al González

Me di cuenta que éste es sensible al tamaño.

No en mi caso (Delphi 7). ¿Qué versión manejas?

Empezado por Al González

De hecho si hago esta prueba:

RegisterClasses ([TForm1]);
C := GetClass ('TForM1');

C obtiene un valor Nil

Misma prueba y C <> nil.

// Saludos

[roman]

Empezado por yo mismo

La pregunta es si éstas unidadas están en el uses de alguna otra unidad en tu proyecto.

Esta pregunta nunca se respondió.

¿De casualidad no estarás tratando de cargar dinámicamente los paquetes?

De ser así acuérdate de que debes usar la opción "Build with runtime packages"

// Saludos

[jachguate]

[quote=Al González
Me di cuenta que éste es sensible al tamaño.[/quote]

En primer lugar yo diria sensible a Mayusculas y minusculas. Al principio no sabia exactamente lo que querias decir.

He realizado la prueba en delphi 4 c/s y c <> nil;

Hasta luego.

[glp1]

Buenas, parece que he encontrado una posible solucion:

initialization
ActivateClassGroup(Tcontrol);
RegisterClasses( [ TFClass1, TFClass2 ]);

El sistema permite que las clases puedan ser cargadas y grabadas para ser registradas en grupos separados. Esto permite distinguir al IDE entre las clases VCL y CLX. Esta llamada activa un grupo de clases que contiene la clase especifica.
Aunque yo en la app solo utilizo VCL, se esta haciendo un lio con las clases VCL y CLX.

Vamos, si utilizo ActivateClassGroup(TControl), se evita el problema.
Gracias a todos.

[roman]

¡Ah! Muy interesante. Por fin comienza a aparecer cierta lógica en este asunto. No sé porque se está confundiendo con las componentes, yo jamás uso nada de Kylix y me limito a desactivar las componentes desde que instalo Delphi. ¿Tú las tienes activadas?

// Saludos

[glp1]

si, pero los he desactivado y sigo igual, tengo que poner de todas formas el ActivateClassGroup.
Seguiremos en el intento...

[roman]

Buscando en los grupos de noticias de borland encontré lo que tú ya descubriste; estos grupos sirven para discriminar entre las componentes VCL y las componentes CLX. Menciona ahí que posiblemente alguna unidad en tu código esté haciendo referencia a las unidades CLX y de ahí que se esté activando el grupo para CLX. Quizá cuando iniciaste el proyecto colocaste alguna componente CLX y se quedo la referencia en alguna cláusula uses.

// Saludos

[[Al González]]

¡Buen día a todos!

Empezado por roman

...No en mi caso (Delphi 7). ¿Qué versión manejas?...

La prueba que menciono la realicé también con Delphi 7 .

Empezado por jachguate

...yo diria sensible a Mayusculas y minusculas...

Bueno, en realidad la traducción original de case sensitive (hablando de caracteres) es "sensible a la caja", o "sensible al tamaño de la caja". Término tipográfico que existe desde la invención de la imprenta. Pero algunos autores utilizamos el término sensible al tamaño, el cual sigue siendo correcto pero un poco más práctico.


¡Un abrazo!

Al González .

[jachguate]

No pretendo rebatir lo que decis... apreciado Al, sobre todo porque eso de las letras a mi no se me da mucho (imagino que ya lo has notado en mis participaciones aqui...) simplemente no me pareció claro el término, aunque sea correcto, evidentemente es poco usual (al menos en mi barrio )

hasta luego.

[roman]

Empezado por Al González

Bueno, en realidad la traducción original de case sensitive (hablando de caracteres) es "sensible a la caja", o "sensible al tamaño de la caja".

Tan sólo por el placer de una amena plática de café...

Estoy de acuerdo contigo en cuanto a lo de "caja" (aunque preferiría "gaveta") más no a lo de "tamaño"- que da origen a tu traducción. El término "case", como bien dices, se originó en contextos tipográficos y se refiere a la caja donde se guardaban los moldes de la letras. Pero más que ser de distintos tamaños, las letras mayúsculas se colocaban en la caja o gaveta superior mientras que las minúsculas en la gaveta inferior. De ahí los términos "UpperCase" y "LowerCase". Así pues, siguiendo una traducción como la que propones, el término sería más bien "sensible a la posición de la caja (o gaveta)"



Saludos