Auch Records...kann man CopyOnWrite deaktivieren?

[himitsu]

Lösungen:
* keinen Record benutzen (Objekt/Interface)
* Items[] gibt nicht den Record, sondern einen Zeiger auf den Record zurück
* einen Wrapper-Record, der intern einen Zeiger auf den Record, oder besser einen Callback in die Klasse besitzt, um statt den Feldern mit Property versehen wurde, welche die Zuweisungen an die Quelle (OriginalRecord) übertragen

Was ist eigentlich MyRecordLIST?

Zitat:

Delphi-Quellcode:

  myrec := RecordAusListe('Peter');
  myRec.Hitpoints := 5;

bei dir kann nur der Getter aufgerufen werden,
aber auch beim MyRecordLIST.Items[IndexOfName(aname)].Hitpoints := 5;

Joar, das Problem ist hier, dass nur der Getter des Items aufgerufen wird,
aber anschließend eben nicht "automatisch" der Setter, um die Änderungen zurückzuschreiben.

[Uwe Raabe]

Wobei MyRecordLIST.List[IndexOfName(aname)].Hitpoints := 5; funktionieren würde.

[QuickAndDirty]

Zitat von himitsu:

Was ist eigentlich MyRecordLIST?

Items ist TArray<TMyRecord>

TArray<PMyRrecord>
wäre besser ?

[himitsu]

Also nicht nur eine Kopie des einen angefragten Items, sondern gleich von ALLEN.
(das Speichermanagement und die CPU freuen sich etwas tuen zu dürfen)

[QuickAndDirty]

Zitat von himitsu:

Also nicht nur eine Kopie des einen angefragten Items, sondern gleich von ALLEN.
(das Speichermanagement und die CPU freuen sich etwas tuen zu dürfen)

Es ist sooo traurig.
Vielleicht stelle ich auf TObjectlist<T> mit ownership um und alle Records zu normalen DatenObjekten....

[Uwe Raabe]

Zitat von QuickAndDirty:

Items ist TArray<TMyRecord>

Damit müsste es gehen. Beim Zugriff euf ein Array-Element bekommt man den originalen Record und keine Kopie. Erst der Rückgabewert von RecordAusListe ist dann eine Kopie. Mein Beispiel könnte dann so aussehen:

Delphi-Quellcode:

type
  PMyRecord = ^TMyRecord;

Function RecordAusListe(aName:String) : PMyRecord;
Begin
  Result := @MyRecordLIST.Items[IndexOfName(aname)];
end;

Procedure Tuwas;
var myRec:PMyRecord;
Begin
  myrec := RecordAusListe('Peter');
  myRec.Hitpoints := 5;

// oder
  RecordAusListe('Peter').Hitpoints := 5; // das ^ ist nicht notwendig, das denkt sich der Compiler dann.

end;

[QuickAndDirty]

Danke euch allen.

[himitsu]

Zitat:

^

Jupp, beim Zugriff via . werdem RecordPointer automatisch implizit dereferenziert.
Es kann aber natürlich dennoch explizit mit ^ dereferenziert werden.
(nur bei Objekt-Zeigern, ist das Explizite nicht erlaubt, bzw. hier wird alles immer nur implizit vom Compiler erledigt)

Da hier der Zugriff eigentlich über einen Name, anstatt via Index ... TDictionary<string,TMyRecord> bzw. TObjectDictionary<string,TMyObject>