Reto Delphi 2011

[[Delphius]]

Empezado por Al González

Es de tres letras, pero no está escrita con letras.

Me dejaste pior

Empezado por roman

Ja, ja, ja. Y mira que mis ojos pasaron por la solución más de una vez. Gracias Al, estuvo interesante

// Saludos

¿Ustedes son humanos?
Voy a tener que llamar al área 51 porque parece que se fugaron de allí. ¿Cómo le hacen para saber tantas cosas?

Evidentemente hay cosas que mi cabeza no logra entender y captar porque no tiene la preparación... pero esto... ¡se me hace que es más fácil encontrar la teoría unificadora de la física!

Supongo que en una semana van a dar conocer la solución ¿no? Porque me han dejado intrigado.

Saludos,

[roman]

He de decir que lo de las siglas sigo sin entenderlo, aunque el término maleable tampoco me convence mucho.

Lo que es cierto es que la respuesta es mucho más sencilla de lo que parece, tal como lo comentó Al desde un principio. También es elegante y segura de usar, no como mi segunda solución, que voy a esbozar para que los demás no tomen el camino equivocado:

Los campos en un objeto se acomodan de manera similar a un registro con un primer campo oculto que es la referencia a la clase a la que pertenece el objeto. Los campos aparecen en el orden en que están declarados y cada objeto guarda los campos de su clase y los de todas sus ancestras.

Así pues, el método "sucio" de acceder al campo X pasa por saber el offset o desplazamiento del campo en el objeto y acceder libremente:

Código Delphi [-]
ShowMessage(PInteger(Integer(Obj) + Offset)^);

Calcular dicho offset no es tan sencillo pues hay que tomar en cuenta el alineamiento que menciona Al. Sin embargo, puede hacerse examinando el código fuente de la clase. Si la clase tiene ancestros nos podemos ayudar con AncestroDeClaseDeObj.InstanceSize, ya que InstanceSize sí toma en cuenta el alineamiento. Aún así, hay que examinar los campos de la clase final hasta llegar a X.

// Saludos

[Casimiro Noteví]

¡¡¡ ¿¿¿Ya lo han descubierto??? !!!

Yo es que no he entendido las pistas, que parecen encriptadas

[Casimiro Noteví]

Ahora que leo lo comentado por Román veo que mi idea estaba bien encaminada, por eso dije:

Empezado por Casimiro Notevi

No estoy muy seguro, pero creo que en lenguaje C sería más fácil

Lo dije porque en lenguaje C conozco en profundidad cómo manejar los punteros, pero en Delphi todavía no me he enterado, de verdad

[roman]

Pero ojo, la solución que esbocé no es la que busca Al.

// Saludos

[[Al González]]

Román, me alegra mucho tener la certeza de que has llegado a la misma solución que yo.

Empezado por Casimiro Notevi

Lo dije porque en lenguaje C conozco en profundidad cómo manejar los punteros [...]

Ah, perdón Casi, yo creí que eso había sido un intento de provocación.

Amigos, reitero lo dicho. La cosa no requiere de meterse a las entrañas de la memoria o hacer desplazamientos de punteros y cosas de tan profundo nivel.





Marcelo, no será necesario practicarle ningún exorcismo a ecfisa para encontrar las tres letras que te ayudarán a resolver...

[roman]

Empezado por Al González

La cosa no requiere [...] hacer desplazamientos de punteros

Je, je. Cuidado con lo que dices

// Saludos

[roman]

Bueno, aunque sabía la solución, no me decidía por la forma de implementarla. Aquí pongo una opción.

Contestando a

Empezado por Al González

La pregunta es: ¿Qué podemos colocar en lugar de ese asterisco para que el mensaje mostrado por ShowMessage diga la verdad, y qué código habría que escribir para lograrlo? Desde luego, sin modificar los fuentes de la VCL.

En lugar del asterisco colocamos

Código Delphi [-]
ShowMessage ('El valor de Obj.X es: ' + IntToStr (GetLastRequestedSize));

y el código que hay que escribir está en el archivo adjunto.

La contraseña, para quien quiera ver la solución, es el tipo de datos (todo en minúsculas) involucrado

Por cierto, del primer intento (fallido) de solución, que tenía que ver con las funciones del Heap, sale este koan:

No es lo mismo el último tamaño de bloque solicitado que el tamaño del último bloque solicitado.

// Saludos

[[Al González]]

Señores: Confirmado, Román ha sido el primero en resolver el problema satisfactoriamente.

¡Enhorabuena!