Private Variable "verweigert Zutritt"

[Luckie]

Hast du auch irgendwo die Klasse erzeugt?

[VinzRitt]

wie meinen?

Edit: Die Klasse wird ja aufgerufen, per Debugger bin ich auch einige Schritte in Prozeduren der Klasse navigiert. Auch setAuge () lässt sich aufrufen, aber m_Auge will einfach keinen Wert annehmen (lässt sich übrigens auch nicht über Debugger als Ausdruck überwachen)

[Luckie]

Zitat von VinzRitt:

Die Klasse wird ja aufgerufen,

Dann zeig mal wie.

[VinzRitt]

Hier der Abgespeckte Quelltext:

Delphi-Quellcode:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;

type
  TForm1 = class(TForm)
    LPunktzahl:  TLabel;
    BBWuerfel1:  TBitBtn;
    BBWuerfel2:  TBitBtn;
    BBWuerfel3:  TBitBtn;
    procedure BBWuerfel1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TWuerfel = class (TObject)
  private
    // Membervariablen
    Augen: integer;
  public
    // Memberfunktionen
    function  getAugen (): integer;
    procedure setAugen (worth:       integer);

    procedure werfen   (TBBActual: TBitBtn);
  end;

var
  Form1:      TForm1;
  Wuerfel:    array[1..3] of TWuerfel;

implementation

{$R *.dfm}

//TWuerfel
//Memberfunktionen
// getAugen
function TWuerfel.getAugen (): integer;
begin
  getAugen:= Augen;
end; //getAugen

// setAugen
procedure TWuerfel.setAugen (worth: integer);
begin
  Augen:= worth; // Hier wird Zugriffsverletzung angezeigt
end; //setAugen

//Beliebige Funktionen
// werfen
// Aufgabe: Zufallszahl bestimmen und auf Würfel ausgeben
procedure TWuerfel.werfen (TBBActual: TBitBtn);
begin
  // Zufallszahl würfeln
  randomize;

  setAugen (random (6)+1);       

  // Ergebnis anzeigen
  TBBActual.Glyph.LoadFromFile (intToStr (getAugen) + '.bmp');
end; //werfen


//TForm1
// BBWuerfel1Click
procedure TForm1.BBWuerfel1Click(Sender: TObject);
begin
  Wuerfel[1].werfen (BBWuerfel1);
end; //BBWuerfelClick

end.

[Luckie]

Und wo wird eine Instanz der Klasse erzeugt? Du solltest dich noch mal mit den Grundlagen auseinandersetzen: http://www.michael-puff.de/Programmi...phi/Tutorials/

[VinzRitt]

nochmal ist gut, ich habe das in delphi noch NIE gemacht!!!

Aber danke!!! Bei google, hab ich dazu nämlich WENIG hilfreiches bekommen...

[Luckie]

Delphi-Quellcode:

type
  TWuerfel = class (TObject)
  private
    FAugen: integer;
    function GetAugen: Integer;
    procedure SetAugen(Value: Integer);
  public    
    property Augen: Integer read GetAugen write SetAugen;
    procedure Werfen (TBBActual: TBitBtn);
  end;

var
  Form1: TForm1;
  Wuerfel: array[1..3] of TWuerfel;  // Warum global und nicht ein Feld der TForm Klasse??