Self selber verändern ... erlaubt?

[himitsu]

Zum Glück arbeite ich ja nicht mit Java

@igel457: dann hätt ich aber fast doppelt soviele Funktionen, wie jetzt schon.

Delphi-Quellcode:

Function TMyObject.MachWas(Param: String): Irgendwas;
  Begin
    If Param <> '' Then Self := SucheAnderes(Param);
    Result := MachWasMitDemObjektUndGibErgebnis;
  End;

Delphi-Quellcode:

Function TMyObject.MachWas(Param: String): Irgendwas;
  Var Temp: TMyObject;

  Begin
    If Param = '' Then Begin
      Result := MachWasMitDemObjektUndGibErgebnis;
    End Else Begin
      Temp := SucheAnderes(Param);
      Result := Temp.MachWas('');
    End;
  End;

also auf "meine" Weise hab ich erstmal etwas Code gesparrt und vorallem muß die Funktion dann nicht nochmals aufgerufen werden

[add]
genau