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