Alter Classe neue zuweisen

[Ghostwalker]

Zitat von EWeiss:

Zitat von nahpets:

Das TSprite aus gS[FlagFound] soll sich also nachher in gS[Item] befinden und das aus gS[Item] in gS[FlagFound].

Meiner Meinung nach müsste das mit dem Vorschlag aus Post #5 funktionieren.

Alle Informationen aus gS[Item] (TSprite) sollen sich dann im gS[FlagFound] befinden
und gS[FlagFound] bekommt den Index von Item zugewiesen.

Es geht nicht mit der Version im Beitrag 5 warum habe ich daraufhin geantwortet

Delphi-Quellcode:

                  // SWAP Item
                  if Item <> FlagFound then
                  begin
                    //SWAP(gS[FlagFound], gS[Item]);
                    gS[FlagFound] := gS[Item];
                    FlagFound := Item;
                  end;

gruss

Öhm.......reicht da nicht einfach

Delphi-Quellcode:

function MySwap(var gs:TNegativArray; var FlagFound,Item:integer);
begin
gS[FlagFound].assign(gs[item]);
FlagFound := Item;
end;

?

[EWeiss]

Werde ich mal versuchen.. Danke Uwe

gruss

[EWeiss]

 gS[FlagFound].assign(gs[item]);

assign gibt es ja nicht in der Classe.

procedure Swap(var gs: TNegativeArray; var FlagFound, Item: integer); gruss

[Ghostwalker]

Dann ergänz doch einfach die TSprite-Klasse um diese Methode

Da werden letzt endlich ja nur die Eigenschaften und Felder zugewiesen.

Muster:

Delphi-Quellcode:

procedure TSprite.Assign(source:TPersistent);
begin
  if (source is TSprite) then
  begin
    field1 := source.field1;
    :
    Property1 = source.property1;
    :
  end;
end;

[EWeiss]

Zitat von Ghostwalker:

Dann ergänz doch einfach die TSprite-Klasse um diese Methode

Da werden letzt endlich ja nur die Eigenschaften und Felder zugewiesen.

Muster:

Delphi-Quellcode:

procedure TSprite.Assign(source:TPersistent);
begin
  if (source is TSprite) then
  begin
    field1 := source.field1;
    :
    Property1 = source.property1;
    :
  end;
end;

sorry aber was ist da field1 und Property1
Muss da jetzt leider Raten

Für dich ist das alles einfach..

gruss

[Ghostwalker]

Das is nur ein Beispiel, da ich ja die genauen Felder bzw. Eigenschaften der TSprite-Klasse nicht kenne

[ISurf]

Wenn zwei Objekte im Array vertauscht werden sollen, dann müsste es eigentlich folgendermaßen funktionieren:

Delphi-Quellcode:

function Swap(gs:TNegativArray; Index1, Index2:integer);
var
  lTemp: TObject;
begin
  lTemp:=gs[Index1];
  gs[Index1]:=gs[Index2];
  gs[Index2]:=lTemp;
end;

[EWeiss]

Zitat von ISurf:

Wenn zwei Objekte im Array vertauscht werden sollen, dann müsste es eigentlich folgendermaßen funktionieren:

Delphi-Quellcode:

function Swap(gs:TNegativArray; Index1, Index2:integer);
var
  lTemp: TObject;
begin
  lTemp:=gs[Index1];
  gs[Index1]:=gs[Index2];
  gs[Index2]:=lTemp;
end;

Hmmm...
Es sind keine Objekte im Array sondern 2 Klassen\Classen wie auch immer.

gruss

[nahpets]

Da es sich bei Dir um TSprite handelt, sollte auch dashier ok sein: lTemp: TSprite; Prinzipiell müsste es gehen, wenn man den kleinsten gemeinsamen Nenner an Stelle von TObject angibt.
Wenn Deine Klassen als Vorfahren alle z. B. von TComponent abgeleitet sind, direkt oder auch über mehrere Zwischenstufen, dann könntest Du für lTemp TComponent nehmen.

Die Swap-Routine könntest Du dann für den Tausch aller Klassen vom Typ TComponent und deren Nachfolger verwenden.

TSprite ist ein Nachfolger von TObject, damit müsste der Tausch eigentlich mit der Routine gelingen.

[himitsu]

Zitat:

Wenn es eine Record ist, muss das var davor, bei einer Klasse nicht,

kommt drauf an

1) wenn man die Objektzeiger tauschen will, dann mit VAR
2) und will man die Objektinhalte tauschen, dann OHNE, da sich ja die Zeiger nicht ändern

Allerdings braucht man beim 2. eventuell einen kompletten zwischen Speicher (z.B. ein drittes Objekt oder ein Stream, in den der Zustand des ganzen Objektes rein serialisiert wird)
* entweder man kopiert vom kompletten Objekt die Property/Felder in ein 3. Objekte
und dann Objekt 2 in 1 und anschließend Temp in 2
(am Besten wäre es, wenn die Objekte das Assign ordentlich implementiert haben, oder sich serialisieren lassen)
* oder man kopiert jedes Property/Feld einzeln und nacheinander, z.B. über eine Swap-Methode