Was ist Self/ warum greift Self zu

[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');