DGL • Thema anzeigen - ClassParent ??

ClassParent ??

Moderator: DGL-Team

Seite 1 von 1

[ 9 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

NiGhTmArE

Betreff des Beitrags: ClassParent ??

Verfasst: Sa Nov 05, 2005 12:12

DGL Member

Registriert: Di Feb 25, 2003 15:10
Beiträge: 147
Wohnort: Koblenz a. Rhein

Hi zusammen!
Hab folgendes Problem:
Ich würde gerne von einer Klasse die einer andern Klasse untergeordnet ist auf die Funktionen der übergeordneten zugreiffen..
Ich mach mal ein Beispiel weil das nich so ganz leicht zu verstehen ist aus dem Satz befürchte ich ^^

ich hab z.B.:

Code:

 
type TKlasse1 = class
private
  Klasse2: TKlasse2;
  ...
public
  Procedure Test;
  ...
end;
 

Wie TKlasse2 aussieht ist hierbei egal..
und will dan in einem Codeteil von Klasse2 auf die Procedure Test von Klasse1 zugreiffen..
Habs mal mit ClassParent versucht.. sah dann inetwa so aus:

Code:

 
Procedure TKlasse2.Irgendwas
begin .. usw..
TKlasse1(ClassParent).Test
...
 

Aber das klappt nicht.. kommt immer irgendwo eine Zugriffsverletzung..
Wie könnte ich das anders machen ?
Danke schonma!
Cya

_________________
mir fällt kein Spruch mehr ein für meine Signatur

naja...

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Sa Nov 05, 2005 12:59

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Code:

type
  TParent = class
  private
 
  public
    procedure parentProc();virtual;
    procedure parentProcS();
  end;
 
  TChild = class(TParent)
  private
 
  public
    procedure parentProc();override;
    procedure parentProcS();
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TChild }
 
procedure TChild.parentProc;
begin
  inherited;
  messageBox( 0, 'TChild.parentProc wurde aufgerufen', 'proc', 0);
end;
 
procedure TChild.parentProcS;
begin
  messageBox( 0, 'TChild.parentProcS wurde aufgerufen', 'proc', 0);
end;
 
{ TParent }
 
procedure TParent.parentProc;
begin
  messageBox( 0, 'TParent.parentProc wurde aufgerufen', 'proc', 0);
end;
 
procedure TParent.parentProcS;
begin
  messageBox( 0, 'TParent.parentProcS wurde aufgerufen', 'proc', 0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
  var p:TParent;
      c:TChild;
begin
  p := TParent.Create;
  c := TChild.Create;
 
  p.parentProc;
  p.parentProcS;
 
  c.parentProc;
  c.parentProcS;
 
  TParent(c).parentProcS;
 
  c.Free;
  p.Free;
end;
 

Keine Zugriffverletzung.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

i0n0s

Betreff des Beitrags:

Verfasst: Sa Nov 05, 2005 13:37

Ernährungsberater

Registriert: Sa Jan 01, 2005 17:11
Beiträge: 2068
Programmiersprache: C++

@sniper.w
Das will er doch garnicht.
Klasse2 ist eine Variable innerhalb Klasse1.
Und in Klasse2 will er auf Klasse1 zugreifen.

Meines Wissens aber nicht möglich, da Klasse2 irgendwo existieren könnte und nicht im Kontext von Klasse1 ist.

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Sa Nov 05, 2005 13:59

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Sorry.

Wenn ein Feld einer Klasse auch selbst eine Klasse ist, heisst das nicht das die Klasse-Owner auch ein Parent von seinem Feld ist.

In deinem Fall ist Klasse1 kein Parent von Klasse2.

Es bitet sich ein Trick zu benutzen :

Code:

 
type tklasse2 = class
private
 Fowner : TKlasse1;
public
 construction Create( aOwner: TKlasse1 );
end;
//....
 Klasse2 = TKlasse2.Create( Klasse1 );
 

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

NiGhTmArE

Betreff des Beitrags:

Verfasst: Sa Nov 05, 2005 14:48

DGL Member

Registriert: Di Feb 25, 2003 15:10
Beiträge: 147
Wohnort: Koblenz a. Rhein

Danke für die Antworten erstma!
Das sieht ganz gut aus ich werds ma probieren!

_________________
mir fällt kein Spruch mehr ein für meine Signatur

naja...

Nach oben

NiGhTmArE

Betreff des Beitrags:

Verfasst: So Nov 06, 2005 00:15

DGL Member

Registriert: Di Feb 25, 2003 15:10
Beiträge: 147
Wohnort: Koblenz a. Rhein

So also habs bissel anders geregelt.. so wie du das beschrieben hast geht das nicht weil sich die deklarationen kreuzen ^^ hättest das mit TObject machen müssen und dann mit Klasse2(TObject).Test usw machen müssen..
Und so ähnlich hab ichs dann auch gemacht.. hab nur PObject = ^TObject benutzt um bissel datenschieberei zu sparen..
also sähe dann so aus..

Code:

 
type  PObject = ^TObject
 
        Klasse1 = class
        private
          pOwner: PObject
          dings: Klasse2;
        public
          constructor.Create(wOwner: PObject);
          procedure Muh;
        end;
...
constructor Klasse1.Create(...);
begin
  pOwner := wOwner;
end;
...
procedure Klasse2.Test(...);
begin
  Klasse1(pOwner^).Muh;
end;
 

so inetwa.. habs das jetz ma so hingeschrieben kann also sein dasses nich ganz korrekt is aber vom Prinzip her sollte man erkennen wie ichs meine!
Cya!

_________________
mir fällt kein Spruch mehr ein für meine Signatur

naja...

Nach oben

sniper

Betreff des Beitrags:

Verfasst: So Nov 06, 2005 00:24

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Anmerkung:
Eine Variable/Instance irgendwelche klasse ist immer ein Pointer.

var a:TObject;
form:TForm;

A ist ein Pointer auf eine instance of TObject.
form = pointer auf eine instance of TForm

^TObject = pointer to pointer to object.

_________________
"Meine Mutter sagt : 'Dumm ist der, der Dummes tut'." - Forrest Gump

Nach oben

Lossy eX

Betreff des Beitrags:

Verfasst: So Nov 06, 2005 10:13

DGL Member

Registriert: Do Dez 05, 2002 10:35
Beiträge: 4234
Wohnort: Dortmund

Kann mich sniper nur anschließen. Klassen sind bereits Pointer und einen Pointer auf eine Klasse macht nur in sehr seltenen Fällen überhaupt sinn. Vor allem, wenn man bedenkt, dass du dann einen normalen Pointer hast und diesen erst beim Casten wieder zu einer Klasse machst. Wenn du dich dann vertust kann es schnell mal passieren, dass eine Instanz vermeindlich als etwas anderes ansprechen möchtest. Um Snipers beispiel mal etwas auszuholen.

Code:

var
  a: TObject;
  form: TForm; 
begin
  a := form;
 
  // A ist von TForm abgelitten
  if a is TForm then
    Form := TForm(a);
 
  // A ist vom Typ TForm
  if a.ClaasType = TForm then
    Form := TForm(a);

Nach oben

Grizzly

Betreff des Beitrags:

Verfasst: So Nov 06, 2005 11:56

DGL Member

Registriert: Sa Nov 13, 2004 11:00
Beiträge: 229
Wohnort: Steinhude

bei Pointern auf TObject muss man außerdem aufpassen, dass die variable, auf die man dann pointed auch bestehen bleibt (zB wenn man in einer Prozedur der Klasse auf self pointen lässt kann das böse ärger geben)

Nach oben

Seite 1 von 1

[ 9 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.