EAccessViolation bei privaten Variablen? Ratlos! :(

[sonbeta2]

Guten Tag liebe Community!

Ich muss für meine Facharbeit eine Simulation schreiben, die das Thema "Frauenversteher" umfasst.
Zunächst habe ich 3 Units. Das Formular, das Spiel, den Kandidaten. Programm: Delphi 5.

Delphi-Quellcode:

TYPE TKandidat = Class
     PRIVATE
       Nummer: Integer;
       Punkte: Integer;
     PUBLIC
       CONSTRUCTOR Create(pNummer: Integer);
       FUNCTION    GibNummer: Integer;
       FUNCTION    GibPunkte: Integer;
       PROCEDURE   Aktualisierung(pPunkte: Integer);
     END; (* TKandidat *)

Delphi-Quellcode:

TYPE TSpiel = Class
     PRIVATE
       Speicher: ARRAY[1..3] OF TKandidat;
       AnzahlKandidaten: Integer;
       Gewinnlimit: Integer;
       Frage, Antwort, Ende: Boolean;
       Runde: Integer;
     PUBLIC
       CONSTRUCTOR Create(pAnzahl, pPunkte: Integer);
       PROCEDURE Schnelldurchlauf(pKandidat, pPunkte: Integer);
       FUNCTION  Ausgabe: String;
       FUNCTION  Wahrscheinlichkeit(pAnzahl, pPunkte: Integer): String;
     END; (* TSpiel *)

CONSTRUCTOR TSpiel.Create(pAnzahl, pPunkte: Integer);
VAR Zaehler: Integer;
BEGIN Runde := 0;
      Ende := False;
      Gewinnlimit := pPunkte;
      AnzahlKandidaten  := pAnzahl;
      //Frage := False;
      FOR Zaehler := 1 TO pAnzahl DO
       Speicher[Zaehler] := TKandidat.Create(Zaehler);
END; (* CSTR *)

Der Fehler tritt in der Unit TSpiel auf mit der Meldung:
Im Projekt ... ist eine Exception der EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse: 00441AAB in Modul ... Schreiben von Adresse 0000001C'. ...


So wird der Konstruktor etc aufgerufen:

Delphi-Quellcode:

PROCEDURE TFrauenversteher.BtStartClick(Sender: TObject);
VAR AnzKandidat, Gewinnlimit: Integer;
BEGIN  AnzKandidat  := StrToInt(EdKandidaten.Text);
       Gewinnlimit  := StrToInt(EdPunkte.Text);
      IF (AnzKandidat < 1) OR (Gewinnlimit < 1) THEN
        LbAusgabe.Caption := 'Bitte geben Sie Daten über 0 an.'
      ELSE BEGIN
                Spiel.Create(AnzKandidat, Gewinnlimit);
           Spiel.Schnelldurchlauf(AnzKandidat, Gewinnlimit);
                // LbAusgabe.Caption := Spiel.Ausgabe
      END; (* ELSE *)
END;

Ich habe mir alles schon hunderte Male angeguckt und auch gegooglet, aber ich werde seit Stunden nicht fündig! Ich hoffe ihr könnt mir etwas behilflich sein.

MfG

[Luckie]

Delphi-Quellcode:

Spiel.Create(AnzKandidat, Gewinnlimit);

So habt ihr das bestimmt nicht gelernt.

[ringli]

Du greifst vermutlich auf einen Bereich deines Arrays Speicher zu das nicht existent ist. Wie hoch ist denn pAnzahl?

[sonbeta2]

@ringli:
pAnzahl ist maximal 3..

[BadenPower]

Schau Dir nocheinmal die Zeile an, welche Luckie beriets moniert hatte.

Zitat:

Zitat von Luckie (Beitrag 1296262)

Delphi-Quellcode:

Spiel.Create(AnzKandidat, Gewinnlimit);

So habt ihr das bestimmt nicht gelernt.

Hier findest Du den Fehler.

[sonbeta2]

Okay nun läuft das Programm so fehlerfrei.

Delphi-Quellcode:

 TSpiel.Create(AnzKandidat, Gewinnlimit);
//Spiel.Schnelldurchlauf(AnzKandidat, Gewinnlimit);
//LbAusgabe.Caption := Spiel.Ausgabe;

Jedoch bekomme ich bei "Spiel.Schnelldurchlauf(AnzKandidat, Gewinnlimit)" immer noch einen EAccessViolation Fehler.. Direkt in der ersten Zeile:

Delphi-Quellcode:

PROCEDURE TSpiel.Schnelldurchlauf(pKandidat, pPunkte:Integer);
VAR Zaehler, Nummer: Integer; AktKandidat: TKandidat;
BEGIN  WHILE NOT Ende DO

[BadenPower]

Deine Variable "Spiel" ist nicht initialisiert.

Schau Dir nochmals die Zeile aus Post #2 und #5 an.

[Luckie]

Delphi-Quellcode:

TSpiel.Create(AnzKandidat, Gewinnlimit);
//Spiel.Schnelldurchlauf(AnzKandidat, Gewinnlimit);

Möööööp. Auch so habt ihr es nicht gelernt. Und bevor du weiter rumprobierst, werfe doch bitte mal einen Blick in ein OOP Tutorial oder Buch dazu.

[DeddyH]

Delphi-Quellcode:

Spiel := TSpiel.Create(AnzKandidat, Gewinnlimit);

Bei

Zitat:

Delphi-Quellcode:

Speicher[Zaehler] := TKandidat.Create(Zaehler);

machst Du es ja auch richtig, wieso nicht hier?

[sonbeta2]

Problem gelöst. Dankeschön an alle! Vor lauter Bäume sieht man manchmal den Wald nicht. :|

MfG

[BadenPower]

Zitat:

Zitat von DeddyH (Beitrag 1296271)

Delphi-Quellcode:

Spiel := TSpiel.Create(AnzKandidat, Gewinnlimit);

Oh Mann, jetzt hast Du's verraten.

Da der TE es ja an anderer Stelle bereits einmal richtig gemacht hatte, war ich mir eigentlich sicher, dass er seinen Fehler selbst findet, wenn man ihm die entsprechende Stelle nur oft genug vor Augen führt.

Edit:
Die DP-Inlinehilfe für > Oh < ist ja auch lustig.

[BUG]

Zitat:

Zitat von ringli (Beitrag 1296263)

Du greifst vermutlich auf einen Bereich deines Arrays Speicher zu das nicht existent ist.

Noch als Tipp: Die hier angegebene Adresse (0x1C) ist (im Normalfall) viel zu klein für einen Array-Überlauf.
Dermaßen kleine Adressen in Zugriffsverletzungen gibt es normalerweise nur bei Nullpointern (Null + Offset) und/oder uninitialisierten Zeigern :wink: