In einer Funktion wird auf ein Shape drauf zugegriffen, was ich vorher in einer anderen Funktion erstellt habe.

Hier der Code:

.h

class  cls_Ampel{

   public:

     cls_Ampel();    // Konstruktor
     ~cls_Ampel();   // Destruktor

     initAmpel(int i_x, int i_y); // Ampel zeichnen

     changeStatus(TTimer *tim, int i_Rot, int i_Gelb, int i_Gruen);
     rot(TTimer *timer);       // Ereignis, was ausgeführt werden soll,
                  // wenn eine ampel auf rot springt

   private:

     TShape *sh_bgAmpel;
     TShape *ampel_red;
     TShape *ampel_yellow;
     TShape *ampel_green;
     int i_Status;   // Speicherung des Statuses
     int i_ampX;     // Position der X-Koordinate
     int i_ampY;     // Position der Y-Koordinate

};

.cpp

#include "ampel_p1_u1.h"
#include "cls_ampel.h"

// Konstruktor
cls_Ampel::cls_Ampel(){

   TShape *sh_bgAmpel;
    TShape *ampel_red;
     TShape *ampel_yellow;
     TShape *ampel_green;

   i_Status = 0;
}

// Ampel zeichnen
cls_Ampel::initAmpel(int x, int y){

  i_ampX = x;   // X-Koordinate speichern
  i_ampY = y;   // Y-Koordinate speichern

   //Hintergrund der Ampel
   TShape *sh_bgAmpel = new TShape(Form1);

   sh_bgAmpel->Shape = stRectangle;
   sh_bgAmpel->Width = 40;
   sh_bgAmpel->Height = 120;
   sh_bgAmpel->Top = i_ampY;
   sh_bgAmpel->Left = i_ampX;
   sh_bgAmpel->Brush->Color = clBlack;
   sh_bgAmpel->Parent = Form1;

   //Rot
   TShape *ampel_red = new TShape(Form1);

   ampel_red->Shape = stCircle;
   ampel_red->Brush->Color = clRed;
   ampel_red->Width = 35;
   ampel_red->Height = 35;
   ampel_red->Top = i_ampY+3;
   ampel_red->Left = i_ampX+3;
   ampel_red->Parent = Form1;

   //Gelb
   TShape *ampel_yellow = new TShape(Form1);

   ampel_yellow->Shape = stCircle;
   ampel_yellow->Brush->Color = clYellow;
   ampel_yellow->Width = 35;
   ampel_yellow->Height = 35;
   ampel_yellow->Top = ampel_red->Top + 38;
   ampel_yellow->Left = i_ampX + 3;
   ampel_yellow->Parent = Form1;

   //Gruen
   TShape *ampel_green = new TShape(Form1);

   ampel_green->Shape = stCircle;
   ampel_green->Brush->Color = clGreen;
   ampel_green->Width = 35;
   ampel_green->Height = 35;
   ampel_green->Top = ampel_yellow->Top + 38;
   ampel_green->Left = i_ampX + 3;
   ampel_green->Parent = Form1;

}

cls_Ampel::changeStatus(TTimer *tim, int i_Rot, int i_Gelb, int i_Gruen){

   switch(i_Status){

     case 0:
             ampel_red->Brush->Color = clYellow;
             i_Status = 1;
             tim->Interval = i_Rot;
             break;

     case 1: ampel_red->Brush->Color = clBlue;
             i_Status = 0;
             tim->Interval = i_Gelb;
             break;
   }
}

cls_Ampel::rot(TTimer *timer){

}

// Destruktor
cls_Ampel::~cls_Ampel(){

}

An den stellen in der switch case abfrage
(ampel_red->Brush->Color = clYellow; oder ampel_red->Brush->Color = clBlue; )

, kommt eine "Zugriffsverletzung an Adresse ..." Fehlermeldung.

Wenn diese Zeile auskommentiert wird, kommt keine Meldung mehr.

Was habe ich in der Deklaration nun falsch gemacht. weiß da nicht weiter.

Ich bedanke mich schon einmal.

gruß
thorsten

mfg
BigNeal

Nimm einfach die in private: angekegten!

TShape *ampel_red = new TShape(Form1);
wird
ampel_red = new TShape(Form1);

Du darfst in der Init- Routine keine neue Variablen anlegen!!!

stimmt
so genau habe ich mir das gar nicht angeschaut
aber habe mich gewundert was das im konstruktor sollte

mfg
BigNeal

ampel_yellow = new TShape(Form1);

Grüße Joe_M.

es sind halt manchmal die kleinen dinge die aufhalten.

gruß thorsten