Objektreferenzen unterbinden

[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.

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