Objektorientierte Programierung - Objekt in methode.

[MAC]

So, das Problem das ich habe ist ziemlich schwer zu beschreiben.
Ich zeig einfach mal einen Einfachen Code - und erweiter den dann so dass das problem aufkommt.

Wir brauchen eigentlich nicht viel nur eine basisklasseN

Code: Alles auswählen

TTest = class
x:integer;
y:integer;
public 
procedure machwas;
end;
 
procedure TTest.machwas;
begin
x := y;
end;
 
Button1.Click:
var
  meintest:TTest;
begin
meintest := TTest.Create;
meintest.machwas;
end;

So, das ist der einfache Code wo es keine schwirigkeiten gibt.
Das problem was ich habe ist in machwas.
Es ist klar welchesy gemeint ist bei x := y, nähmlich das y was zu der klasse TTest gehört.
Wenn ich jetzt aber nicht y habe sondern die Instanz an sich meine, also einen Pointer erwarte auf meintest. Was muss ich dann ändern.

Code: Alles auswählen

TTest = class
parent:TTest;  // wurde geändert !
public 
procedure machwas;
end;
 
procedure TTest.machwas;
var
  zweig:TTest; // wurde geändert !
begin
zweig := TTest.Create; // wurde geändert !
zweig.parent := ????? // wurde geändert !
end;
 
//Button1.Click bleibt...

Ich moche also in der Prodcedure machwas eine verkettung erstellen und dem 2ten Objekt gerne sagen wer sein Vater ( Wie das Objekt heißt von dem die Procedure machwas aufgerufen wurde ist = meintest )ist. Nur weis ich nicht wie ich das jetzt nennen soll...

Danke

[pluto]

Self heißt das Zauberwort.
Du musst den Parent auf Self setzten. Self ist ein Interner Bezeichner der in jeder Klasse zuverfügung steht.

[Eclipticon]

Self?

(Edit: 60 Sekunden zu spaet auf "Absenden" geklickt )

[MAC]

danke
wieder was gelernt...