Forum: Programmieren allgemein
Delphi
by Ghostwalker,
9. Mai 2017
Das is nur ein Beispiel, da ich ja die genauen Felder bzw. Eigenschaften der TSprite-Klasse nicht kenne ;)
Forum: Programmieren allgemein
Delphi
by Ghostwalker,
9. Mai 2017
Dann ergänz doch einfach die TSprite-Klasse um diese Methode :)
Da werden letzt endlich ja nur die Eigenschaften und Felder zugewiesen.
Muster:
procedure TSprite.Assign(source:TPersistent);
begin
if (source is TSprite) then
Forum: Programmieren allgemein
Delphi
by Ghostwalker,
9. Mai 2017
Öhm.......reicht da nicht einfach
function MySwap(var gs:TNegativArray; var FlagFound,Item:integer);
begin
gS.assign(gs);
FlagFound := Item;
end;
?