Необрабатываемое исключение в приложении

@Kolbasnik · Регистрация: 29.04.2017

Студворк — интернет-сервис помощи студентам

Нажимаю на w,s,d,a и выскакивает такая ошибка. Как исправить?

Pascal

uses GraphABC, ABCobjects;
var object1:PictureABC;spPlayer:integer;
procedure movePlayer(key:integer);
begin
case key of
VK_D: begin object1.Left:=object1.Left+spPlayer; object1.Move(); end;
VK_A: begin object1.Left:=object1.Left-spPlayer; object1.Move(); end;
VK_W: begin object1.top:=object1.top-spPlayer; object1.Move(); end;
VK_S: begin object1.top:=object1.top+spPlayer; object1.Move(); end;
end;
end;
procedure Player(sprite:PictureABC; speed, hp:integer);
begin
sprite:=pictureABC.Create(100,100,'C:\PABCWork.NET\Программы\Текстуры\Уилсон.png');
spPlayer:=speed;
end;
begin
window.Caption:='Games';
window.SetSize(800,600);
window.CenterOnScreen;
window.IsFixedSize:=true;
Player(object1,5,100);
onkeydown:=movePlayer;
end.

@volvo · 11.05.2017, 17:18

Параметр sprite должен быть var-параметром, иначе Object1 не изменится после вызова процедуры Player. А что бывает при обращении к нулевому указателю?

@Kolbasnik · 11.05.2017, 18:19 **[ТС]**

Т.е. прописать в var sprite:PictureABC?

Добавлено через 18 минут
Всё, разобрался.

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	11.05.2017, 17:18	2
	Параметр sprite должен быть `var-параметром`, иначе Object1 не изменится после вызова процедуры Player. А что бывает при обращении к нулевому указателю? 0

@Kolbasnik 0 / 0 / 0 Регистрация: 29.04.2017 Сообщений: 23
	11.05.2017, 18:19 [ТС]	3
	Т.е. прописать в var sprite:PictureABC? Добавлено через 18 минут Всё, разобрался. 0

Опции темы