UNIT uSpur;
(* ******************************************************************** *)
(* K L A S S E : TSpur *)
(* -------------------------------------------------------------------- *)
(* Version : 1.2 *)
(* Autor : (c) 2004, Siegfried Spolwig *)
(* Beschreibung: Die Klasse bildet eine Fußspur ab *)
(* *)
(* Compiler : Delphi 6 *)
(* Aenderungen : 0.9 01-MAR-04 *)
(* ******************************************************************** *)
INTERFACE
// =======================================================================
uses
uMatter,
uCritter;
type
TSpur = class(TMatter)
private
public
constructor Create; override;
procedure Init;
procedure Zeigen (wohin : TRichtung); reintroduce;
end;
(* -------------------- B e s c h r e i b u n g -------------------------
Oberklasse : TMatter
Bezugsklassen : TCritter - importiert : Richtung
Methoden
--------
Create
Auftrag: Exemlar erzeugen und init.
vorher :
nachher: done.
Init
Auftrag: Anfangswerte setzen
vorher :
nachher: Bild ist gesetzt, Spur nach Süden
Set...
Auftrag: Attribut schreiben
vorher :
nachher: Attribut ist gesetzt
Get...
Auftrag: Attribut aus dem Objekt lesen
vorher :
nachher: -
Zeigen (wohin: TRichtung);
Auftrag: wohin die Reise geht
vorher : -
nachher: -
--------------------------------------------------------------------- *)
|