UNIT uWortgenerator;
(* ******************************************************************** *)
(* K L A S S E : TWort                                                  *)
(* -------------------------------------------------------------------- *)
(* Version     : 1.0                                                    *)
(* Autor       :                                                        *)
(* Beschreibung: Das Objekt erzeugt eine zufaellige Zeichenkette, die   *)
(*               als String verarbeitet werden kann.                    *)
(* Compiler    : Delphi 3.0                                             *)
(* Aenderungen : V. 1.0   03-JAN-99                                     *)
(* ******************************************************************** *)

INTERFACE
(* ==================================================================== *)

type
   TWort = class
             Wort   : string;
             Laenge : Byte;
             UpCase : boolean;

             procedure Init;                            virtual;
             procedure Erzeugen;                        virtual;
             procedure SetUpCase(Up: boolean);          virtual;
             procedure SetLaenge(l :integer);           virtual;
             function  GetLaenge : integer;             virtual;
             function  GetWort : string;                virtual;
             function  IstGleich (st: string): boolean; virtual;
             function  IstKleiner (st: string): boolean;virtual;
           end;

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

Oberklasse    : -
Bezugsklassen : -

Methoden
--------

Init
   Auftrag: Leeres Wort mit Laenge Null erzeugen.
   vorher : -
   nachher: -

Erzeugen
   Auftrag: Wort aus zufaelligen Buchstaben (A-Z, a-z ohne Umlaute) zusammen-
            setzen. Laenge und Gross/KLeinschreibung koennen gesetzt werden
   vorher : -
   nachher: -

GetWort
   Anfrage: liefert das erzeugte Wort
   vorher : Laenge ist groesser Null
   nachher: -

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