AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Alter Classe neue zuweisen

Ein Thema von EWeiss · begonnen am 9. Mai 2017 · letzter Beitrag vom 12. Mai 2017
Antwort Antwort
Seite 2 von 4     12 34   
nahpets
(Gast)

n/a Beiträge
 
#11

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 02:26
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.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#12

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 02:33
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

Geändert von EWeiss ( 9. Mai 2017 um 02:38 Uhr)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#13

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 02:41
Irgendwie verstehe ich das nicht und hab' momentan auch keine Idee, was da jetzt nicht funktioniert und warum

Ärgerlich.
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#14

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 02:53
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

Geändert von EWeiss ( 9. Mai 2017 um 02:56 Uhr)
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#15

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 02:56
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?
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#16

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 03:10
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
  Mit Zitat antworten Zitat
nahpets
(Gast)

n/a Beiträge
 
#17

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 03:19
Hab' mal etwas gesucht, da mir nix einfällt.

Swap 2 objects - how?

Hilft das irgendwie weiter?
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#18

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 03:23
Hab' mal etwas gesucht, da mir nix einfällt.

Swap 2 objects - how?

Hilft das irgendwie weiter?
Danke dir für das Suchen
Werde mich damit mal befassen vielleicht ist was brauchbares dabei.

gruss
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#19

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 08:05
Hallo,
das ist hier ein Stochern im Nebel.
Viel zu wenig Quellcode, mindestens die Definition von TSprite ist hier noch notwendig ...

procedure SWAP(Value1, Value2: TSprite);

Was ist TSprite, Klasse oder ein Record?

Wenn es eine Record ist, muss das var davor, bei einer Klasse nicht,
solange in der Methode selbst keine neue Klasse erzeugt wird (Tauschen ist nicht "neu erzeugen")

procedure SWAP(var Value1, Value2: TSprite);

Die Meldung des Compilers ist genau richtig

procedure SWAP(Value1, Value2: TSprite);
Value1 und Value2 werden auf dem Stack neu angelegt (Achtung, nicht mit dem Erzeugen von Klassen verwechseln),
dann wird der Inhalt der übergebenen Werte in die beiden Stack-Variablen reinkopiert

var
lTemp: TSprite;
begin
lTemp := Value1;
Value1 := Value2;
Value2 := lTemp;
end;

[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

lTemp: noch ein Variable
Value1 := Value2;
Value2 := lTemp;

Wertezuweisung ohne Sinn

end;
Hier werden Value1,Value2,lTemp wider freigegeben,
der Inhalt der Ursprungsvariablen, die an Swap übergeben worden sind, bliebt erhalten.

Lösung bei Records
procedure SWAP(var Value1, Value2: TSprite);
Heiko
  Mit Zitat antworten Zitat
EWeiss
(Gast)

n/a Beiträge
 
#20

AW: Alter Classe neue zuweisen

  Alt 9. Mai 2017, 08:16
Zitat:
das ist hier ein Stochern im Nebel.
Entschuldige bitte.
Ich habe hier in der ersten Zeile die komplette classe gepostete. (die aufzurufende funktion wurde vom linker entfernt)
Mehr geht beim besten willen nicht.

gruss
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz