AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Unterschied Zuweisung Unterelemente / ganzes Objekt

Unterschied Zuweisung Unterelemente / ganzes Objekt

Ein Thema von cmrudolph · begonnen am 21. Okt 2008 · letzter Beitrag vom 21. Okt 2008
Antwort Antwort
cmrudolph

Registriert seit: 14. Aug 2006
29 Beiträge
 
Delphi 7 Professional
 
#1

Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 08:42
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
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 08:46
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 08:47
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
cmrudolph

Registriert seit: 14. Aug 2006
29 Beiträge
 
Delphi 7 Professional
 
#4

Re: Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 09:00
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.
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 09:14
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.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
cmrudolph

Registriert seit: 14. Aug 2006
29 Beiträge
 
Delphi 7 Professional
 
#6

Re: Unterschied Zuweisung Unterelemente / ganzes Objekt

  Alt 21. Okt 2008, 09:23
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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz