Hallo zusammen,
ich hätte da mal eine Frage zum Kopieren von Daten zwischen zwei Records.

zusammenfalten · markieren

Delphi-Quellcode:

type
  tMyRecord1 : packed record
                 datum : tdatetime;
                 wert : integer;
                 feld : string[255];
               end;

var
  record1 : tMyrecord1;
  record2 : tMyrecord1;

// So funktioniert es immer
record1.datum:=record2.datum;
record1.wert:=record2.wert;
record1.feld:=record2.feld;
 
//so geht es auch
move(record2,record1,sizeof(tMyrecord));

aber was ist wenn ich

markieren

Delphi-Quellcode:

type
  tMyRecord1 : packed record
                 datum : tdatetime;
                 wert : integer;
                 feld : AnsiString;
               end;

oder

markieren

Delphi-Quellcode:

type
  tMyRecord1 : packed record
                 datum : tdatetime;
                 wert : integer;
                 feld : String;
               end;

verwende?
dann sollte doch mit einem move(record2,record1,sizeof(tMyrecord)); nur die Stringadresse kopiert werden und Änderungen in
record2.feld hätten gleichzeitig Änderungen in record1.feld zur Folge?
Oder liege ich da falsch?

Gruß
K-H

Ich verstehe nicht- Warum sollte man das tun? Record-Zuweisungen sind doch immer eine vollständige Kopie:

zusammenfalten · markieren

Delphi-Quellcode:

program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

type
   TMyRecord1 = packed record
      datum : tdatetime;
      wert : integer;
      feld : AnsiString;
   end;

var
   firstRecord, secondRecord:   TMyRecord1;

begin
  try
   firstRecord.datum := Now();
   firstRecord.wert := 42;
   firstRecord.feld := 'Hallo Welt';

   secondRecord := firstRecord;

   firstRecord.datum := 0.0;
   firstRecord.wert := 99;
   firstRecord.feld := 'Derp';

   WriteLn( DateTimeToStr(secondRecord.datum) );
   WriteLn(secondRecord.wert);
   WriteLn(secondRecord.feld);

  except
   on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.

Zitat von Der schöne Günther:

Ich verstehe nicht- Warum sollte man das tun? Record-Zuweisungen sind doch immer eine vollständige Kopie:

Weil ein String erst mal ein Pointer auf einen Speicherbereich ist und du nur den Pointer kopierst. Damit zeigen die Strings von beiden Records auf den gleichen Speicherbereich. Änderst du den einen Record, dann wird der Zweite direkt mit geändert.

Bei records habe ich es mir angewöhnt immer eine Assign-Procedure einzubauen.

Ich scheue "move" wie der Teufel das Weihwasser.

zusammenfalten · markieren

Delphi-Quellcode:

type
    TMyRecord1 = packed record
       datum : tdatetime;
       wert : integer;
       feld : AnsiString;
       Procedure assign(aSource:TMyRecord1);
    end;

implementation

Procedure assign(aSource:TMyRecord1);
begin
  datum := aSource.adatum;
  wert := aSource.wert;
  feld := aSource.feld;
end;

Komischerweise passiert das bei dem Beispiel nicht

Eben. Da wir hier AnsiStrings haben geht es wohl um Windows. Strings sind Copy on Write. Wenn sich ein String ändert, ändert er nur den Pointer und lässt diesen nun auf einen neuen Speicherbereich zeigen.

Zitat von Der schöne Günther:

Eben. Da wir hier AnsiStrings haben geht es wohl um Windows. Strings sind Copy on Write. Wenn sich ein String ändert, ändert er nur den Pointer und lässt diesen nun auf einen neuen Speicherbereich zeigen.

D.h. mit "meinen move" liege ich auf der sicheren Seite?
Nicht daß wir uns falsch verstehen, eigentlich bevorzuge ich Pointer (da weiß man was man hat) aber wenn nur Werte vorhanden sínd/übergeben werden ist eine narrensichere allgemeingültige Verfahrennsweise ganz angenehm.

Gruß
K-H

Zitat von mkinzler:

Komischerweise passiert das bei dem Beispiel nicht

Dennoch versuche ich das Kopieren von Speicherbereichen zu vermeiden.