UNIT uStein;
(* ******************************************************************** *)
(* K L A S S E : TStein                                                 *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.2                                                    *)
(* Autor       : (c) 2004, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse bildet einen Ziegelstein ab                 *)
(*                                                                      *)
(* Compiler    : Delphi 6                                               *)
(* Aenderungen : 0.9	01-MAR-04                                       *)
(* ******************************************************************** *)

INTERFACE
// =======================================================================
uses
  uMatter;

type
  TStein = class(TMatter)
   private
   public
    constructor Create;       override;
    procedure   Init;
    procedure   MauerBauen;   virtual;
  end;

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

Oberklasse    : TMatter
Bezugsklassen : -      import:

Methoden
--------

Create
  Auftrag: Exemlar erzeugen und init.
  vorher :
  nachher: done.

Init
  Auftrag: Anfangswerte setzen
  vorher :
  nachher: Bild ist gesetzt

Set...
  Auftrag: Attribut schreiben
  vorher :
  nachher: Attribut ist gesetzt

Get...
  Auftrag: Attribut aus dem Objekt lesen
  vorher : 
  nachher: -

MauerBauen
  Auftrag: Setzt eine Reihe aus Steinen
  vorher : 
  nachher: -

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