Zahlenraten, objektorientiert

UNIT mTZahlenAusdenker;

interface

//uses
// Uses-Klausel ggf. anpassen

type
   TZahlenAusdenker = CLASS(tObject)

     // weitere Attribute
     private
        FZahl : integer;

     // weitere Methoden
     public
        procedure neueZahl;
        function GetZahl : integer;

   end;

implementation

//+---------------------------------------------------------------------
//|         TZahlenAusdenker: Methodendefinition
//+---------------------------------------------------------------------

//-------- neueZahl (public) -------------------------------------------
procedure TZahlenAusdenker.neueZahl;
begin
  FZahl := Random(100)+1;
end;

//-------- GetZahl (public) --------------------------------------------
function TZahlenAusdenker.GetZahl : integer;
begin
  result := FZahl;
end;

end.

unit uTest_ZahlenAusdenker;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  mTZahlenAusdenker                             // 1. Unit einbinden
  ;

type
  TForm1 = class(TForm)
    bErzeuge: TButton;
    bNeueZahl: TButton;
    bGetZahl: TButton;
    lZahl: TLabel;
    bVernichte: TButton;
    procedure bErzeugeClick(Sender: TObject);
    procedure bNeueZahlClick(Sender: TObject);
    procedure bGetZahlClick(Sender: TObject);
    procedure bVernichteClick(Sender: TObject);
  private
    einZahlenAusdenker : TZahlenAusdenker;      // 2. Referenzvariable deklarieren
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bErzeugeClick(Sender: TObject);
begin
  einZahlenAusdenker := TZahlenAusdenker.Create  // 3. Erzeugung des Objekts
end;

procedure TForm1.bNeueZahlClick(Sender: TObject);
begin
  einZahlenAusdenker.neueZahl;                   // 4. Auftrag an Objekt
end;

procedure TForm1.bGetZahlClick(Sender: TObject);
var
  zahl : integer;
begin
  zahl := einZahlenAusdenker.GetZahl;            // 5. Anfrage an Objekt
  lZahl.Caption := IntToStr(zahl);
end;

procedure TForm1.bVernichteClick(Sender: TObject);
begin
  einZahlenAusdenker.Free;                       // 6. Vernichtung des Objekts
end;

end.