Datenkopie vom einen Record in ein anderes

[Sir Rufo]

Zitat von bernau:

Zitat von Sir Rufo:

Und was willst du im Assign anders machen als die Objekt-Referenz kopieren (was die normale Zuweisung eben auch macht)

Evtl. Schauen, ob beim Zielrecord schon ein initialisiertes Objekt im Feld vorhanden ist und dann nicht einfach den Pointer überschreiben.

Warum nicht die Referenz einfach überschreiben? Der Record eignet sich doch eh nicht zur Lifetime-Verwaltung einer Objekt-Instanz. Vergisst du den Record passiert einfach nichts (gut der wird finalisiert, aber die Instanz wird nicht freigegeben).

Und dann werden die Felder eines Records nur bei einem gemanagten Typen initialisiert. Und eine Objekt-Instanz ist erst mit ARC gemanaget.

Delphi-Quellcode:

TFoo = record
  Instance : TObject; // ohne Zuweisung kann hier alles drin stehen!
  Str : string; // init mit ''
  Intf : IInterface; // init mit nil
  procedure Assign( Other : TFoo );
end;

procedure TFoo.Assign( Other : Tfoo );
begin
  if Assigned( Instance ) then
    FreeAndNil( Instance ); // das knallt wie ein Zufallsgenerator!
  Instance := Other.Instance;