S. Spolwig

Klasse TRatespiel implementieren  

Im Gegensatz zur Fensterklasse, wo die GUI-Objekte und ihre Methoden automatisch erzeugt werden, sind in den Fachklassen die "unsichtbaren" Objekte beschrieben. Die gesamte Klassen-Unit ist vollständig mit dem Editor zu schreiben. (s. Vorlage).

MERKE:      Jede Klasse wird eine Unit!

Dazu sind folgende Schritte erforderlich:

2. Mit Projektverwaltung kontrollieren, ob die Unit im Projekt enthalten ist.
   
   

3. Lesen Sie die Hinweise unten! Schreiben Sie den Code für die Unit uRatespiel.pas!
   Zur Kontrolle ist der Text unten abgedruckt. Die fehlenden und noch leeren Prozeduren werden wir noch ergänzen.
   

4. Kompilieren Sie das Programm bis es fehlerfrei läuft. Es wird dann zwar immer noch nicht ganz spielbereit sein, aber bald ist es soweit!!!... 
   
    

   unit uRatespiel; // ******************************************************************** // K L A S S E : TRatespiel // -------------------------------------------------------------------- // Version   : 1.x // Autor     : S. Spolwig, OSZ-Handel I,  10997 Berlin // Aufgabe   : stellt das Spielobjekt im Datenmodell dar. // Compiler  : DELPHI 4.0 // Aenderung : V. 1.2   - 20-FEB-01   Zaehler //                1.3   - 18-AUG-02   Status : int. // ******************************************************************** interface // ==================================================================== type   TRatespiel = class (TObject)     private      Geheimzahl : integer;      Ratezahl   : integer;      Zaehler    : integer;     public      constructor Create;      procedure   Init;      procedure   GeheimzahlErzeugen;      procedure   SetRatezahl (rz : integer);      procedure   ZaehlerErhoehen;      function    GetZaehler : integer;      function    GetStatus  : integer;      function    IstFertig  : boolean;   end; (* ------------------------ Beschreibung -------------------------------- Create   Auftrag: neues Spielobjekt erzeugen Init;   Auftrag: Geheimzahl, Ratezahl, Zaehler auf 0 setzen GeheimzahlErzeugen;   Auftrag: Wert zwischen 0 und 100 erzeugen und der Geheimzahl zuweisen SetRatezahl (rz : integer);   Auftrag: der Ratezahl einen Wert zuweisen GetStatus : integer;   Anfrage: nach dem Ergebnis des Vergleichs(=, >, <).   Nachher: 0, wenn gleich; -1, wenn Ratezahl kleiner; +1, wenn Ratezahl groesser IstFertig: boolean;   Anfrage: : ob Spiel beendet. True wenn Ratezahl = Geheimzahl ------------------------ Ende Beschreibung ---------------------------- *) implementation // ==================================================================== constructor TRatespiel.Create; // -------------------------------------------------------------------- begin   inherited Create; // was von TObject kommt end; procedure TRatespiel.Init; // -------------------------------------------------------------------- begin end; procedure TRatespiel.GeheimzahlErzeugen; // -------------------------------------------------------------------- begin   randomize;   Geheimzahl := random(100)+1; end; procedure TRatespiel.SetRatezahl (rz : integer); // -------------------------------------------------------------------- begin   Ratezahl := rz; end; procedure TRatespiel.ZaehlerErhoehen; // -------------------------------------------------------------------- begin end; function TRatespiel.GetZaehler : integer; // -------------------------------------------------------------------- begin   result := Zaehler; end; function TRatespiel.GetStatus : integer; // -------------------------------------------------------------------- begin end; function TRatespiel.IstFertig : boolean; // -------------------------------------------------------------------- begin   end; END.