UNIT uBlackHole;
(* ******************************************************************** *)
(* K L A S S E : TBlackHole *)
(* -------------------------------------------------------------------- *)
(* Version : 0.9 *)
(* Autor : (c) 2005, Siegfried Spolwig *)
(* Beschreibung: Die Klasse bildet ein Schwarzes Loch ab, in dem Objekte*)
(* spurlos verschwinden. *)
(* *)
(* Compiler : Delphi 6 *)
(* Aenderungen : 0.9 18-APR-05 *)
(* ******************************************************************** *)
INTERFACE
// =======================================================================
uses
uMatter,
uItem;
type
TBlackHole = class(TMatter)
public
constructor Create; override;
procedure Init;
procedure Verschlinge(it : TItem);
end;
(* -------------------- B e s c h r e i b u n g -------------------------
Oberklasse : TMatter
Bezugsklassen : - import:
Methoden
--------
Create
Auftrag: Exemplar erzeugen und init.
vorher :
nachher: done.
Init
Auftrag: Anfangswerte setzen
vorher :
nachher: Bild gesetzt, Fuellfarbe schwarz.
procedure Verschlinge(it : TItem)
Auftrag: Items rückstandslos entsorgen
vorher : -
nachher: it ist aus dem Arbeitsspeicher entfernt.
--------------------------------------------------------------------- *)
|