Obtener Nombre de la Unidad en Uso

[roman]

Estupendo Daniel! Una pregunta, esta información (unit name) ¿viene en cualquier RTTI o sólo en las últimas versiones de Delphi?

LineComment Saludos

[Casimiro Noteví]

¡Qué monstruo! y lo fácil que parece.

[ecfisa]

Hola roman.

UnitName ya está definido en el tipo TTypeData en En Delphi 7, desconozco si lo está en versiones anteriores.

Saludos

[roman]

Gracias! No recordaba haberlo visto, pero qué bueno que lo aclaras.

LineComment Saludos

[[AgustinOrtu]]

Pues en Delphi 2010, la clase TObject ya dispone del siguiente metodo de clase:

Código Delphi [-]
  TObject = class
  public
    class function UnitName: string;

La cual retorna el nombre de la unidad del tipo de clase en cuestion, y siendo que todo deriva de TObject

Asi que esto basicamente funciona:

Código Delphi [-]
ShowMessageFmt('UnitName %s', [TObject.UnitName]);
ShowMessageFmt('UnitName %s', [TForm1.UnitName]);
ShowMessageFmt('UnitName %s', [DescendienteDeTObject.UnitName]);

[rmendoza83]

Hola Saludos a todos! exactamente lo que me muestra ecfisa es lo necesito! Lo revisare a fondo! Gracias compa;ero!!!

[rmendoza83]

Ahora bien, que seria mas recomendable? utilizar una sola unidad para el control de errores? o hacer el control propiamente dentro de cada código en los bloques try...except que manejo? de esta manera esta bastante simplificada y esta totalmente adaptable a mi proyecto, aunque básicamente como lo vengo haciendo lo que necesitaba conocer era la linea de código de GetTypeData que me obtiene el apuntador con toda la información de donde se esta ejecutando el código en cuestión. Yo estoy trabajando con BDS 2006, que opinan?