UNIT uMemory;
(* ******************************************************************** *)
(* K L A S S E   : TMemory                                              *)
(* -------------------------------------------------------------------- *)
(* Version       : 1.0                                                  *)
(* Autor         : (c) S. Spolwig, OSZ-Handel I, 10997 Berlin           *)
(*                                                                      *)
(* Aufgabe       : Container zum Speichern (Merken) von Informationen,  *)
(*                 - z.B., wo Karel schon gewesen ist - die in Shadow   *)
(*                 aufgenommen sind.                                    *)
(* Compiler      : Delphi 6.0                                           *)
(*               : V.   1.0   - 23-JUN-04   Elementtyp ist TShadow      *)
(* ******************************************************************** *)

INTERFACE
(* ==================================================================== *)
uses
  uDListe,     // import: TList, Enthaelt
  uShadow;

type
  TMemory = class (TListe)
    public
     function Enthaelt (eintrag : TShadow) : boolean; virtual;
  end;

(*  ----------------- B e s c h r e i b u n g -------------------------

Oberklasse     : TListe
Bezugsklassen  : TShadow

Methoden
--------

Enthaelt (eintrag : TShadow): boolean;
  Anfrage : ob ein Element mit den mit der betreffenden Spalten-/Zeilenpos
            enthalten ist
  vorher  : S. ist nicht leer.
  nachher : true, wenn Positionen von eintrag mit denen eines Elements im
            Gedaechtnis übereinstimmen.

----------------------------------------------------------------------- *)