Alter Classe neue zuweisen

[EWeiss]

Zitat:

TNegativeArray enthält doch (glaub' ich) 1 bis n Elemente der Klasse TSprite.

Richtig so ist es.

gS[FlagFound] := gS[Item];

gs soll vertauscht werden damit der Inhalt von gs[Item] im gS[FlagFound] enthalten ist.
vorher kann ich den Index FlagFound nicht durch den von Item ersetzen.

gruss

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

[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

[nahpets]

Irgendwie verstehe ich das nicht und hab' momentan auch keine Idee, was da jetzt nicht funktioniert und warum

Ärgerlich.

[EWeiss]

Zitat von nahpets:

Irgendwie verstehe ich das nicht und hab' momentan auch keine Idee, was da jetzt nicht funktioniert und warum

Ärgerlich.

Es geht deshalb nicht!

Zitat:

[DCC Fehler] uMain.pas(1590): E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

SWAP(gS[FlagFound], gS[Item]);

wirft den Fehler.
Und den Var-Parameter brauche ich weil sonst nichts zurückgegeben wird.

Vielleicht ist ja ein direkter Cast möglich kann es jetzt nur noch nicht testen.
gS[FlagFound] := gS[Item];

gruss

[nahpets]

Das sind doch garkeine Var-Parameter drinne:

Delphi-Quellcode:

procedure SWAP(Value1, Value2: TSprite);
var
   lTemp: TSprite;
begin
   lTemp := Value1;
   Value1 := Value2;
   Value2 := lTemp;
end;

Hm, was verstehe ich denn hier jetzt nicht?

Ist wohl doch zu spät oder noch zu früh?

[EWeiss]

Zitat von nahpets:

Das sind doch garkeine Var-Parameter drinne:

Delphi-Quellcode:

procedure SWAP(Value1, Value2: TSprite);
var
   lTemp: TSprite;
begin
   lTemp := Value1;
   Value1 := Value2;
   Value2 := lTemp;
end;

Hm, was verstehe ich denn hier jetzt nicht?

Ist wohl doch zu spät oder noch zu früh?

Ich sagte doch ich musste sie wieder hinzufügen weil sonst diese Fehler kommen.

Zitat:

[DCC Hinweis] uGlobal.pas(144): H2077 Auf 'Value2' zugewiesener Wert wird niemals benutzt
[DCC Hinweis] uGlobal.pas(143): H2077 Auf 'Value1' zugewiesener Wert wird niemals benutzt

Wenn diese Werte nicht zurückgegeben werden über "Var" dann funktioniert das nicht.
Ach spät Ist meine normale Arbeitszeit.

gruss

[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