Objetos superglobales

[Ñuño Martínez]

Hola elliotduvorov, bienvenido al club. Como a todos los novatos, te invitamos a que revises la Guía de Estilo si no lo has hecho ya.

Respecto a tu pregunta, no estoy seguro de que vaya a funcionar ya que no creas ningún objeto. Realmente no he usado nunca este código, pero viendo el código adjuntado por Crandel, creo que deberías hacer algo así:

Código Delphi [-]
  TYPE
    TMiSuperObjetoSesion = CLASS (TSuperGlobalObject)
    PUBLIC
      MiSesion: TOraSession;
    END;

  VAR
    ElObjetoSesionGlobal: TMiSuperObjetoSesion;

  BEGIN
    ElObjetoSesionGlobal := TMiSuperObjetoSesion. Create;
    MiSesionLocal.AssignConnect (ElObjetoSesionGlobal.MiSesion)
  END

De todas formas, ten en cuenta las limitaciones de las que habla Al en la cabecera de su código, ya que el objeto "MiSesion" podría darte problemas. El artículo de la bitácora del máster Al incluye más información acerca del mecanismo, y dará pistas de qué se puede y qué no y por qué.