src/auxiliares/Objeto.pas

   1 {** Es una clase abstracta para agregar algunos métodos generales útiles\r
   2     para el resto de las clases que implementemos. Podría considerarse una\r
   3     extensión a la funcionalidad básica dada por TObject.}\r
   4 unit Objeto;\r
   5 \r
   6 interface\r
   7 \r
   8 uses\r
   9   Tipos;\r
  10 {$IFDEF DebugAlgoWars}\r
  11 type\r
  12   {** Es una clase abstracta para agregar algunos métodos generales útiles\r
  13       para el resto de las clases que implementemos. Podría considerarse una\r
  14       extensión a la funcionalidad básica dada por TObject.}\r
  15   cObjeto = class\r
  16     public\r
  17       {** Devuelve una cadena de texto con el estado actual del objeto.\r
  18           La cantidad de información devuelta depende del parametro debugLevel}\r
  19       function mGetDebugInfo( debugLevel: tDebugInfo = DI_MINI ): string; virtual; abstract;\r
  20   end;\r
  21 {$ENDIF}\r
  22 \r
  23 implementation\r
  24 \r
  25 end.\r