home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 09_10 / oop / ubase.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-12  |  1.9 KB  |  57 lines
  1. (* ----------------------------------------------------- *)
  2. (*                     UBASE.PAS                         *)
  3. (*                                                       *)
  4. (* ■ Base: Dient als Ur-Vater für alle Objekte, damit    *)
  5. (*   Nachkommen leicht z.B. in Listen verwaltet werden   *)
  6. (*   können.                                             *)
  7. (* ■ Abstract: Bei manchen Methoden eines Objekts will   *)
  8. (*   man eine Neuimplementation erzwingen; damit sie     *)
  9. (*   nicht vergessen wird, kann "Abstract" mit dem Namen *)
  10. (*   des Objekts aufgerufen werden.                      *)
  11. (*                                                       *)
  12. (*            (c) 1991 by R.Reichert & toolbox           *)
  13. (* ----------------------------------------------------- *)
  14. UNIT UBase;
  15.  
  16. INTERFACE
  17.  
  18. TYPE
  19.   BasePtr = ^Base;
  20.   Base = OBJECT
  21.            DESTRUCTOR Done; VIRTUAL;
  22.          END;
  23.  
  24. PROCEDURE Abstract(Name : STRING);
  25.  
  26. IMPLEMENTATION
  27.  
  28.   PROCEDURE Abstract(Name : STRING);
  29.   BEGIN
  30.     WRITELN('Methode von ', Name,
  31.             'nicht reimplementiert !');
  32.     RunError(232);
  33.   END;
  34.  
  35.   DESTRUCTOR Base.Done;
  36.   BEGIN
  37.   { kein Aufruf von "Abstract", weil ein Nachkomme nicht
  38.     zwingend eigenen Destruktor braucht.                  }
  39.   END;
  40.  
  41.   (* ----------------------------------------------------- *)
  42.   (* Eigene Heap-Error-Funktion; Heap-Fehler liefert damit *)
  43.   (* einen NIL-Pointer zurück anstatt einen Runtime-Error  *)
  44.   (* zu erzeugen (siehe Turbo 5.5 Handbuch, S. 113).       *)
  45.   (* ----------------------------------------------------- *)
  46. {$F+} FUNCTION HeapFunc(Size : WORD) : INTEGER; {$F-}
  47.   BEGIN
  48.     HeapFunc := 1;
  49.   END;
  50.  
  51. BEGIN
  52.   HEAPERROR := @HeapFunc;
  53. END.
  54. (* ----------------------------------------------------- *)
  55. (*                Ende von UBASE.PAS                     *)
  56. (* ----------------------------------------------------- *)
  57.