is-Logo

D L I B - eigene Klassen
TWort

S. Spolwig

[Home | Delphi]

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: -
----------------------------------------------------------------------- *)

 

 05. Oktober 2008     Siegfried Spolwig

page_top