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

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

type
  TBaum = class(TMatter)
   private
   public
    constructor Create;       override;
    procedure   Init;
    procedure   Faellt;
    procedure   AlleeAnlegen; virtual;
  end;

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

Oberklasse    :
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: -

AlleeAnlegen
  Auftrag: Setzt eine Reihe aus Bäumen
  vorher : 
  nachher: -

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