Was ist Self/ warum greift Self zu

[Bomberbb]

Moin,

ich befasse mich gerade mit oop in Delphi. Nun hab ich ein Problem mit Self. Ich dachte bis jetzt immer, dass Self der Objektvariablen entspricht, dem ist aber anscheinend nicht so.
Ein wenig Quelltext zur Verdeutlichung.

Delphi-Quellcode:

...
ActiveClass:=^TMeineKlasse

Procedure TMeineKlasse.SetActive;
Begin
  ActiveClass:=@Self;
End;

...

Meins:=TMeineKlasse.Create(Self);
Meins.SetActive;
if @Meins <> ActiveClass then
  showmessage('Unterschied');

Ich fasse das nun so auf, dass Self nicht wirklich auf den Speicherbereich des Objektes verweißt. Kann ich diese Referenz irgendwie bekommen???

Gruß

Bomber

[edit=SirThornberry]aussagekräftigeren Titel vergeben - Mfg, SirThornberry[/edit]

[Apollonius]

Self enthält den selben Inhalt wie die Instanzvariable. Wenn du also deine Zeigerspielchen weglässt und ActiveClass als TMeineKlasse deklarierst, solltest du ein anderes Ergebnis erhalten.

Übrigens: Wie sollten denn self und MeineKlasse - zwei verschiedene Variablen - den selben Speicherbereich teilen?

Nochwas: Klassen und Zeiger sind in der Regel nicht nötig, da Klassen implizit schon Zeiger sind.

[Bernhard Geyer]

Nicht zu viel C++-Verzeigerung (Das drüben bin ich).

Delphi-Quellcode:

ActiveClass: TMeineKlasse;

Procedure TMeineKlasse.SetActive;
Begin
  ActiveClass := Self;
End

Meins := TMeineKlasse.Create(Self);
Meins.SetActive;
if Meins <> ActiveClass then
  showmessage('Unterschied');

[RavenIV]

Ich weiss nicht, ob Dir das weiterhilft:
Self ist immer das Formular, in dem Du Dich gerade bewegst.

[Apollonius]

Falsch. Self ist die Objektinstanz mit der eine Methode aufgerufen wird. Das ist nur ein Formular, wenn du dich in einer Methode von TForm oder eines abgeleiteten TFormxxx bewegst.

[Bomberbb]

Nun ich dachte bis jetzt, Self würde direct auf die Objektvariable verweisen. Habe das inwischen auch ohne Zeiger gelöst. Wollte jetzt nur mal wissen wie sich das verhält.
Wenn Self eine zweite Variable mit dem selben Inhalt ist, wie die Objektvariable, dann ist mir alles klar.

Danke!!!

[Bernhard Geyer]

Zitat:

Zitat von Bomberbb

Nun ich dachte bis jetzt, Self würde direct auf die Objektvariable verweisen.

Du sagst es doch schon. Self ansich ist ja letztendlich schon ein (typisierter) Zeiger. Und nochmal einen Zeiger definieren der auf diesen Zeiger zeigt (sollte doch nicht Pointer übersetzen).

[Bomberbb]

Hab schon wieder ein ähnliches Problem. Gibt es generell irgendeine Möglichkeit einen Zeiger auf das Object zu bekommen?

[SirThornberry]

du musst sagen was du genau willst.
Die Klasse ist der Bauplan (zur Verdeutlichung der Bauplan eines hauses).
Mit Klasse.Create wird der Bauplan umgesetzt (das Haus gebaut).
Und eine Objectinstanz ist intern ein Pointer der auf den umgesetzten Bauplan zeigt (Als würde dir jemand sagen: Das Haus steht in der Badstraße 5)

Self bezieht sich also auf das Haus in dem du stehst und nicht auf irgend einen Wegweiser oder eine Wegbeschreibung.

Was meinst du jetzt also mit "Zeiger auf das Object"
Wenn das "Object" das Haus selbst ist wäre ein "Zeiger auf das Object" also der Wegweiser, also eine Objectinstanz.

[Bomberbb]

Ich brauche während der Klassenmethoden z.B.

TMeineClasse.create den pointer, der sich außerhalb der Klasse so ergeben würde.

Objekt := TMeineKlasse.Create(Form1);

pointer:=@Objekt;