Objektreferenzen unterbinden

[stiftII]

Hallo, ich hoffe ihr könnt mir helfen.


Ich habe folgende Klasse erstellt:

Delphi-Quellcode:

  TetrisPiece = class
  Piece : Array Of Tpoint;
  block: boolean;
  rotatemode: integer;
  end;

Damit folgende Variablen.

Delphi-Quellcode:

aktuell, temp : TetriesPiece;

Diese mit

Delphi-Quellcode:

aktuell := TetrisPiece.Create;
temp := TetrisPiece.Create;

erzeugt.



Nun werden beide "Variablen" gefüllt. An einer stelle weise ich
aktuell := temp; zu, da ich möchte, dass in aktuell die werte von temp stehen.

Temp soll dann neue werte bekommen.

Mein Problem ist, dass ich mit der anweisung(dick) die beiden Variablen irgendwie verbinde. Also sie haben beide dauerhaft dieselben Werte.

Wie kann ich das unterbinden, sodass ich die Werte übertrage aber keine Objektreferenz erzeuge ?.

____
Grüße aus dem Norden,

stiftII

[Luckie]

Objekte sind Zeiger. Du weißt also aktuell den Zeiger von temp zu. Damit zeigen beide auf den gleichen Speicherbereich. Du musst akteull entweder manuell die Werte von temp zuweisen. Oder die Klasse von TPersistant ableiten und die Methode assign überschreiben.

[stiftII]

Zitat:

Zitat von Luckie

Objekte sind Zeiger. Du weißt also aktuell den Zeiger von temp zu. Damit zeigen beide auf den gleichen Speicherbereich. Du musst akteull entweder manuell die Werte von temp zuweisen. Oder die Klasse von TPersistant ableiten und die Methode assign überschreiben.

Vielen dank für die schnelle Antwort. Das macht alles Sinn! :)

Wie überschreibe ich assign ?, bzw. womit überschreibe ich assign ?

~stiftII

[Luckie]

Mit deinem eigenen Code zum Zuweisen der Eigenschaften.

[stiftII]

Klappt alles wunderbar : D

:dp:

[Luckie]

Dann stell doch bitte noch deinen Code hier ein für andere.

[himitsu]

Ansonsten ginge auch noch der gute alte Record:

Delphi-Quellcode:

TetrisPiece = record
  Piece : Array Of Tpoint;
  block: boolean;
  rotatemode: integer;
end;

und schon klappt das mit dem Zuweisen auch.


Welche Delphi-Version nutzt du denn?

Ab Delphi 2006 (Turbo Delphi) kann kann Records ja auch Funktionen und Operatoren verpassen ... damit lassen sich die tollsten Dinge veranstalten.
> http://www.delphipraxis.net/internal...t.php?t=169966
> http://www.delphipraxis.net/internal...t.php?t=159592
> http://www.delphipraxis.net/internal...t.php?t=151373

[stiftII]

Hallo.

Ich nutze delphi 7.

Habs so gemacht.. gibts da was zu beanstanden ?

Delphi-Quellcode:

  TetrisPiece = class(TPersistent)
  private
    Piece : Array Of Tpoint;
    block: boolean;
    rotatemode: integer;
    procedure Assign(Source: TPersistent); override;
  end;
....

procedure Tetrispiece.Assign(Source: TPersistent);
begin
  if (source is TetrisPiece) then
    begin
      self.Piece := (source as tetrispiece).Piece;
      self.block := (source as tetrispiece).block;
      self.rotatemode := (source as tetrispiece).rotatemode;
    end else
    inherited;
end;

und das ganze dann eben wie Luckie schon gesagt hat mit Assign zuweisen.

Delphi-Quellcode:

aktuell.assign(temp);

Hey, das mit den records ist natürlich auch klasse : D.

In meinem Fall vllt sogar angebracht.

Danke nochmal für die Hilfe.

~stift II

[Hawkeye219]

Hallo,

Zitat:

Zitat von stiftII

Habs so gemacht.. gibts da was zu beanstanden ?

ja, eine Kleinigkeit: das dynamische Array musst du mit Hilfe der Copy-Funktion kopieren:

Delphi-Quellcode:

//  self.Piece := (source as tetrispiece).Piece;
  Self.Piece := Copy((source as tetrispiece).Piece);

Machst du das nicht, zeigen beide Referenzen auf ein Array. Jede Änderung in einem Array verändert dann auch die Werte des anderen Arrays. Diese Verbindung wird erst durch eine Längenänderung eines der beiden Arrays aufgehoben. Durch die Copy-Funktion werden direkt unabhängige Variablen angelegt.

Auch bei der Verwendung der Records ist die Copy-Funktion zum Übertragen des dynamischen Arrays notwendig!

Gruß Hawkeye

[stiftII]

Wow, das hätte übel enden können, haha :D

Vielen Dank für den Hinweis!!