schreibender Zugriff auf private Variablen ?

[Apollonius]

@Flocke: Gute Idee, aber ich glaube, dass da noch ein paar kleine Fehler drin sind...

Delphi-Quellcode:

function FindStringReference(Obj: Pointer; Size: Integer; const TheString: string): PString;
begin
  while Size >= 8 do
  begin
    Obj := Pointer(Integer(Obj) + 4);
    dec(Size, 4);
    if PInteger(Obj)^ = Integer(TheString) then //Der String selbst ist der Zeiger - wir brauchen nicht seine Adresse!
    begin
      Result := PString(Obj);
      Exit;
    end;
  end;
  Result := nil;
end;

FindStringReference(myObj, MyObj.InstanceSize, myObj.getTest)^ := 'Neuer Text';//SizeOf liefert für alle Klassen 4 zurück, da es Zeiger sind