Объясните код

[tinton]

{-----Функция счетчика кнопок (n)-----}
Function Rkey(var x,y:integer):integer;
begin
readk:=readkey;
if readk=#0 then readk:=readkey;
if (Ord(readk)=80) or (Ord(readk)=77) then
 begin
	if x<=y-1 then x:=x+1;
 end
else
if (Ord(readk)=72) or (Ord(readk)=75) then
 begin
	if x>=2 then x:=x-1;
 end;
Rkey:=x;
end;

если несложно то можно коментарий к каждой строчке ? Заранее благодарю.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[s-andriano]

Боюсь, что комментарий в данном случае написать принципиально невозможно.
Во-первых, комментарий обычно пишется ДО написания кода, а не после.
В коде записано, ЧТО делает программа, а в комментарии пишут ЗАЧЕМ она это делает.
Приведенный Вами код не имеет очевидного предназначения. Более того, есть вообще подозрение, что он неправильный.
Поэтому понять, зачем программист применил ту или иную конструкцию, не представляется возможным.
Похоже, что он пытался так обрабатывать клавиши со стрелками. Зачем - одному ему известно.

[Utkin]

Боюсь, что комментарий в данном случае написать принципиально невозможно.

Да в лёт, был бы смысл.

Приведенный Вами код не имеет очевидного предназначения. Более того, есть вообще подозрение, что он неправильный.

Не знаю насчет правильности, но предназначение кода это смещение некоторого объекта вправо-влево при определенных условиях. Кнопки конечно странные, но нам ли жить в печали?

Зачем - одному ему известно.

А то, а также всем кто хоть раз в жизни делал змейку или тетрис .

[tinton]

ребят это функция счетчика кнопок для курсовой спорт лото мне бы токаобъяснить сптроки с условиями
if (Ord(readk)=80) or (Ord(readk)=77) then
begin
if x<=y-1 then x:=x+1;
end
Возвращение значений чего.. аски код каких клавишь тут заложен или просто значения?3

[Noor]

if (Ord(readk)=80) or (Ord(readk)=77) then
begin
if x<=y-1 then x:=x+1;
end

Вот, примерный, перевод

Если (нажатая_кнопка=P)или(нажатая_кнопка=M) тогда
 начинаем
  если x<=y-1 ТОГДА x:=x+1
 конец

[mrMeerkat]

Сообщение от tinton

Возвращение значений чего.. аски код каких клавишь тут заложен или просто значения?

72 Стрелка вверх
75 Стрелка влево
77 Стрелка вправо
80 Стрелка вниз

Нажатие на эти клавиши присылает по два кода подряд #0 и #72(например),
Поэтому следующий код отбрасывает нули и определяет что именно нажимали:

readk:=readkey;
if readk=#0 then readk:=readkey;

[s-andriano]

Сообщение от tinton

ребят это функция счетчика кнопок для курсовой спорт лото мне бы токаобъяснить сптроки с условиями
if (Ord(readk)=80) or (Ord(readk)=77) then
begin
if x<=y-1 then x:=x+1;
end
Возвращение значений чего.. аски код каких клавишь тут заложен или просто значения?3

Этот код, по идее, должен реагировать на определенные клавиши. Только выбираются нужные клавиши, скорее всего, неправильно, а реакция - нелогичная.

Сообщение от mrMeerkat

72 Стрелка вверх
75 Стрелка влево
77 Стрелка вправо
80 Стрелка вниз

Нажатие на эти клавиши присылает по два кода подряд #0 и #72(например),
Поэтому следующий код отбрасывает нули и определяет что именно нажимали:

readk:=readkey;
if readk=#0 then readk:=readkey;

проблема в том, что нули там не лишние.
В том виде, как написан, код срабатывает не только на указанные клавиши, но еще и на:
72 - H
75 - K
77 - N
80 - P
Чтобы он реагировал только на курсорные клавиши, не хватает пары скобок begin-end.

[Utkin]

В том виде, как написан, код срабатывает не только на указанные клавиши, но еще и на:
72 - H
75 - K
77 - N
80 - P

Согласен. Это меня и настораживает...