Unterschied Zuweisung Unterelemente / ganzes Objekt

[cmrudolph]

Guten Morgen,

ich frage mich, ob die folgenden Quellcodes intern das gleiche machen:

Delphi-Quellcode:

type
  TObj1 = class(TObject)
  private
    Fs: String;
    Fi: Integer;
  public
    s: String read Fs;
    i: Integer read Fi;
  end;
.
.
.
procedure MyProc();
var
  obj1,obj2: TObj1;
begin
  obj1:=TObj1.Create();
  obj1.Fs:='abc';
  obj1.Fi:=1;

  obj2:=TObj1.Create();

  //Der Kasus-Knacktus
  obj2.Fi:=obj1.Fi;
  obj2.Fs:=obj1.Fs;

  obj1.Free;

  //mache irgend etwas mit obj2

  obj2.Free;
end;

//die andere Prozedur
procedure MyProc1();
var
  obj1,obj2: TObj1;
begin
  obj1:=TObj1.Create();
  obj1.Fs:='abc';
  obj1.Fi:=1;

  obj2:=TObj1.Create();

  //Der Kasus-Knacktus
  obj2:=obj1;

  obj1.Free;

  //mache irgend etwas mit obj2

  obj2.Free;
end;

Wie man sieht, weise ich einmal jedes private Element des Objektes manuell zu und einmal weise ich das gesamte Objekt direkt zu.

Weist Delphi beim Zuweisen eines Objektes auf ein anderes nur den Objektpointer zu, oder kopiert es alle Variablen in das andere Objekt?

mfG

[Luckie]

Probier es aus. Weise das Objekt einem anderem zu. Gibt das erste Objekt frei und führe Operationen mit dem zweiten Objekt aus. wenn es zu einer Zugriffsverletzung kommt, wurde nur ein Pointer übergeben, der anch dem Freigeben des ursprünglichen Objektes ins Nirvana zeigt, so dass alle weiteren Operastionen mit dem zweiten Objekt fehlschlagen.

Oder um es kurz zumachen: Zweiteres trifft zu. Esw ird nur ein Zeiger auf das Objekt zugewiesen. Deswegen besitzen manche Klassen eine Assign Methode, um eine Kopie eines Objektes anfertigen zu können. Dazu muüssen die Objekte aber von TPersistant abgeleitet sein, wenn ich mich recht entsinne.

[DeddyH]

Es wird lediglich der Objektzeiger zugewiesen. Wenn Du kopieren möchtest, solltest Du von TPersistent ableiten und dessen Methode Assign überschreiben. Auszug aus der Hilfe zu TPersistent.Assign:

Zitat:

Mit Assign kopieren Sie die Eigenschaften und andere Attribute eines Objekts von einem anderen. Ein Aufruf von Assign hat die grundsätzlich folgende Form:

Destination.Assign(Source);

Dadurch wird das Zielobjekt (Destination) angewiesen, den Inhalt des Quellobjekts (Source) auf sich selbst zu kopieren.

In den meisten Anwendungen wird Assign überschrieben, um die Zuweisung von Eigenschaften aus ähnlichen Objekten vorzunehmen. Wenn das Zielobjekt die Zuweisung von Eigenschaften aus Source nicht behandeln kann, rufen Sie beim Überschreiben von Assign die geerbte Methode auf.

Wenn keine überschreibene Methode die Zuweisung von Eigenschaften aus Source behandeln kann, ruft die in TPersistent implementierte Methode die Methode AssignTo des Quellobjekts auf. Dadurch kann das Quellobjekt die Zuweisung bearbeiten. Wenn das Source-Objekt nil ist, löst TPersistent.Assign eine EConvertError-Exception aus.

Grundsätzlich ist die Anweisung "Destination := Source" nicht gleichbedeutend mit „Destination.Assign(Source)“.. Die Anweisung "Destination := Source" bewirkt, daß Destination dasselbe Objekt referenziert wie Source, während "Destination.Assign(Source)" den Inhalt des von Source referenzierten Objekts in das von Destination referenzierte kopiert.

[edit] Roter Kasten macht Pause [/edit]

[cmrudolph]

Das habe ich schon befürchtet.
Einfach nach dem Free vom ersten Objekt mit den Daten weiterzuarbeiten führt ja nicht unbedingt sofort zur Exception. Habe in solchen Fällen schon mehrfach stundenlang gesucht, weil die Exception erst beim Schließen des Programmes auftrat. Bis ich dann festgestellt habe, dass ich mit freigegebenem Speicher gearbeitet habe.

In meinem Fall sind die Objekte aber so trivial, dass es ein Overkill wäre, wenn ich eine Assign Methode programmieren würde.

Danke für die Hilfe.

mfG

Edit:

Delphi-Quellcode:

...
type
...
  TObj1 = class(TObject)
  private
    Fs: String;
    Fi: Integer;
  public
    property s: String read Fs;
    property i: Integer read Fi;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  obj1,obj2: TObj1;
begin
  obj1:=TObj1.Create();
  obj1.Fs:='abc';
  obj1.Fi:=1;

  obj2:=TObj1.Create();

  //Der Kasus-Knacktus
  obj2.Fi:=obj1.Fi;
  obj2.Fs:=obj1.Fs;

  obj1.Free;

  //mache irgend etwas mit obj2
  ShowMessage(obj2.s);
  obj2.Free;
end;

Dieser Code bringt keine Exception.

Edit2: Mein Fehler... Ich hab da natürlich den falschen Quellcode kopiert... Mit dem anderen kommt es in der Tat direkt zur Exception.

[Luckie]

Nun ja, das Anhalten eines Autos ist auch eher trivial, aber trotzdem macht man sich die Mühe ein aufwendiges aber sicheres Bremssystem einzubauen.

Zitat:

Dieser Code bringt keine Exception.

Aber das ist wohl purer Zufall, weil die betroffenen Speicherbereiche zufälligerweise noch konsistente Daten enthalten.

[cmrudolph]

Der Vergleich mit dem Auto ist ganz treffend. Vor allem in Bezug auf die Erweiterbarkeit hatte ich darüber nachgedacht, die Objekte direkt zuzuweisen. Denn dann müsste ich die Zuweisungen nur an genau einer Stelle durchführen und nicht an zwei.
Da es in dem konkreten Fall um Objekte des gleichen Typs handelt, ist die Funktion ja auch schnell geschrieben.

Zu der Exception noch einmal: siehe Edit2 meines letzten Beitrages.