Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 09.04.2017
Сообщений: 1
1

Не могу найти ошибку. Нажимаю на клавишу, выдает ошибку

09.04.2017, 19:02. Показов 718. Ответов 1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses   ABCObjects,GraphABC;
const
  Image_0 = '0_765e9_6a3e424a_S.png';
  var p:PictureABC;speed:integer;
procedure KeyDown(Key:integer);
 begin
  case Key of
    VK_Left :
     begin
      p.Left:=p.Left + speed ;
      p.Move();
     end;
  end;
 end;
procedure KeyUp(Key:integer);
 begin
  case Key of
    VK_Left :
     begin
      p.Left:=p.Left + speed ;
      p.Move();
     end;
  end;
 end;
var 
  i, n: integer;
  s: string;
  j: PictureABC;
  
 
begin
  j := PictureABC.Create(100, 100, '1234_S.png');
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2017, 19:02
Ответы с готовыми решениями:

Структура: Не могу понять, почему выдает ошибку и как собственно эту ошибку можно исправить?
Привет,не могу понять почему ошибку выдает и как сбстно эту ошибку можно исправить? #include...

Прога выдает ошибку, найти ее не могу
Всем доброй ночи))) Ребята, нужна ваша помощь. Прога выдает ошибку, найти ее не могу(( помогите...

Не могу найти понять почему выдает ошибку
Здравствуйте в недавнем времени начали изучать С++. Изучаю классы и при работы с классом...

Выдаёт ошибку.не могу найти где загвоздка
#include <iostream> #include <conio.h> using namespace std; template <class T> void Sum(T*mas,...

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
09.04.2017, 20:45 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses   ABCObjects,GraphABC;
var p:PictureABC;
    speed:integer;
procedure KeyDown(Key:integer);
 begin
  case Key of
    VK_Left : p.Left:=p.Left - speed ;
    VK_Right : p.Left:=p.Left + speed ;
   end; 
 p.Move;
end;
 
begin
  p := PictureABC.Create(100, 100, '1.png');
  speed:=10;
  OnKeyDown := KeyDown;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2017, 20:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Не могу найти причину, по которой компилятор выдает ошибку
Здравствуйте! проблемы с этой задачей, учусь на первом курсе систем информационной безопасности, не...

Модель солнечной системы.Выдает ошибку-не могу найти
#include <iostream> #include <stdio.h> #include <math.h> #include <string.h> #include...

Найти ошибку в программе: в visual studio выдает ошибку
#include <math.h> #include <conio.h> #include <iostream> using namespace std; int main() ...

Расширенный фильтр выдает неверный результат. Не могу найти ошибку
Здравствуйте. Помогите решить задание: Найти информацию о студентах в возрасте от Возраст1 до...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.