Record schreibgeschützt weil Feld von Klasse

[himitsu]

Früher war es nicht schlimm.

o.myrecord.a := 666; ließ sich problemlos compilieren.
(nur der zugwiesene Wert kam halt irgendwie nie an )

[Blup]

Da gibt es immer noch die bösen Pointer...

Delphi-Quellcode:

PMyRecord = ^TMyRecord
TMyRecord = record
  a : integer;
  b : integer;
end;

TMyClass = class(TObject)
private
  FMyRecord : TMyRecord;
  function GetMyRecord: PMyRecord;
public
  property MyRecord : PMyRecord read GetMyRecord;
end;

function TMyClass.GetMyRecord: PMyRecord;
begin
  Result := @FMyRecord;
end;

MyClass.MyRecord.a := 1;
MyClass.MyRecord.b := 2;

[Jens01]

@Blup
Schöne Lösung, nur beim Auslesen fummel ich wieder mit dem Häkchen^ rum - oder hab ich was übersehen?
[Edit] ..okay, jetzt hab ich's verstanden... Glaub ich..

[himitsu]

Wenn man auf ein Feld/Property/Methode des Record hinter dem Zeiger zugreift (.igendwas ), dann dereferenziert Delphi das automatisch (implizit).