Ein Objekt (in ein anderes) kopieren

[mintpc]

Hallo zusammen,

ich habe zwei ein Objektarrays deklariert:

Code: Alles auswählen

a : array [1..6, 1..6] of TKarte;
  hilf: array [1..6, 1..6] of TKarte;

Jetzt will ich die Objekte des ersten Arrays in das zweite Array kopiere.
Versucht habe ich "assign" (kopieren der Attribute ginge auch, ich will aber mal
"assign" ausprobieren):

Code: Alles auswählen

for i := 1 to 6 do
       for j := 1 to 6 do
              hilf[i,j].Assign(a[i,j]);

Eigentlich müsste das doch funktionieren, oder?
Es kommt ne Fehlermeldung, die ich wegklicken kann. Dann wird
auch tatsächlich das erste Objekt kopiert, die anderen aber nicht mehr???


Hier ist die Klasse TKarte, es ist eine abgeleitete Klasse und darunter, wie ich
die beiden Objektarray erzeugt habe:

Code: Alles auswählen

type
  TKarte = class (TShape)
    protected
   procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  published
    Property OnMouseDown;
 
    public Fo, Fr, Fu, Fl : TColor;
    public position : integer;
    public constructor create (AOwner: TComponent); //overload;
   { public procedure click; override;}
 
    public procedure zeichne(o, r, u , l : TColor);
    public procedure dreherechts;
    public procedure drehelinks;
  end;

Code: Alles auswählen

for i := 1 to 6 do
    for j := 1 to 6 do
      begin
      a[i,j] := TKarte.create(self);
      a[i,j].Parent := self;
      a[i,j].left := 10+(j-1)*102;
      a[i,j].top := 10+(i-1)*102;
      if a[i,j] <> nil then
         a[i,j].Hide;
 
      hilf[i,j] := TKarte.create(self);
      hilf[i,j].Parent:= self;
      end;

Weiß jemand Rat?

Danke schonmal
mintpc

[theo]

Es kommt ne Fehlermeldung, die ich wegklicken kann.

Und wie heisst die?

[mschnell]

Eigentlich müsste das doch funktionieren, oder?

Nö.
Das funktiuoniert nur, wenn Du für deine Klasse "TKarte" auch eine Assign-Prozedur geschrieben hat, die die Interna der Klasse von einer Instanz in die andere kopiert.

-Michael

[MAC]

wie mschnell es sagt. Alles würde funktionieren wenn du eine Assign Procedure Deklarierst...
Ist nicht weiter schwer, inhalt ist ca. so

Code: Alles auswählen

procedure Tkarte.Assign(von:Tkarte);
begin
Fo := von.Fo;
Fr := von.Fr;
//..
position := von.position;
end