schreibender Zugriff auf private Variablen ?

[Elvis]

Mit einem Zeiger auf den alten Propertywert ginge es.

Delphi-Quellcode:

type
  TTest = class
  private
    fValue: String;
    function GetValue: String;
  public
    property Value : String read GetValue;
    constructor Create(const aValue : String);
  end;
{ TTest }

constructor TTest.Create(const aValue: String);
begin
  fValue := aValue;
end;

function TTest.GetValue: String;
begin
  result := fValue;
end;

var
  instance : TTest;
begin
  instance := TTest.Create('A');
  try
    PChar(instance.Value)^ := 'B';

    Writeln(instance.Value);
  finally
    instance.Free();
  end;
end.

Edit: Wtf? Ich bin noch nicht wach... Hatte eben noch keine Antworten gesehen