Ich habe einen Sprite vom Typ TSchwert und ich möchte das wenn man mit einem anderen Sprite das Schwert berührt dieses unsichtbar (Visible := false) wird. BEi mir kommt während der Laufzeit, wenn ich den Sprite berühre dieser Fehler :
"Zugriffsverletzung bei Adresse 0044163F im Modul 'MeinProgramm.exe' Schreiben von Adresse 0000001A"
Was mache ich falsch ?
Delphi-Quellcode:
procedure TSpieler.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
if sprite is TGegenstand then
begin
Form1.DXWaveList1.Items.Find('sound').Play(False);
dead;
Visible := false;
end;
if sprite is TSchwert then
begin
Schwert.Visible := false;
end;
end;
Bei der Brührung von TGegenstand wird der Spieler unsichtbar, aber wie mache ich das, wenn der Spieler gegen das Schwert läuft TSchwert unsichtbar wird ?