UNIT uCleanCity;
(* ******************************************************************** *)
(* K L A S S E : TCleanCity *)
(* -------------------------------------------------------------------- *)
(* Version : 2.2 *)
(* Autor : (c) 2004, Siegfried Spolwig *)
(* Beschreibung: Die Klasse bildet die Welt 'CleanCity' ab. *)
(* *)
(* Compiler : Delphi 6 *)
(* Aenderungen : 0.9 28-MAR-04 *)
(* ******************************************************************** *)
INTERFACE
// =======================================================================
uses
uWelt,
uStein,
uBaum,
uHaus,
uLagerhaus,
uMuell;
type
TCleanCity = class(TWelt)
protected
Mauer : TStein;
Linde,
Eiche : TBaum;
Haufen : TMuell;
Haus : THaus;
KaDeWe : TLagerhaus;
public
constructor Create; override;
procedure Init;
end;
(* -------------------- B e s c h r e i b u n g -------------------------
Oberklasse : TWelt
Bezugsklassen : - import:
Methoden
--------
Create
Auftrag: Exemlar erzeugen und init.
Alle Objekte der vorigen Welt entfernen
vorher :
nachher: done.
Init
Auftrag: Anfangswerte setzen
vorher :
nachher: Bäume, Mauern, Haufen, Häuser gesetzt
Set...
Auftrag: Attribut schreiben
vorher :
nachher: Attribut ist gesetzt
Get...
Auftrag: Attribut aus dem Objekt lesen
vorher :
nachher: -
--------------------------------------------------------------------- *)
|