Delphi-Quellcode:
Procedure TEnemy.randDir;
begin
randomize;
Edir := random(5);
Form1.Timer2.Interval := random(2000)+1000;
end;
wird per Timer aufgerufen :
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Enemy.Randdir;
end;
Fehlermeldung:
Im Projekt TRPG1.exe ist eine Exeption der Klasse $C00000005 mit der Meldung '
access violation at 0x00486716 :write of adress
0x00000c0 aufgetreten.
Wenn ich dann auf Anhalten klicke kommt :
Ausführungspunkt nicht verfügbar.