При нажатии мышкой ** внутреннею область квадрата происходит ошибка.Из-за чего она...

Question

При нажатии мышкой на внутреннею область квадрата происходит ошибка.
Из-за чего она возникает:"Program8.pas(6) : Ошибка времени выполнения: Поток не выполняется; его нельзя приостановить."?

Как можно переделать программу?
Программа(PascalABC.NET):

uses graphabc;
var
a: real;

procedure md(x, y, z: integer);
begin
if (x > 100) and (x < 200) and (y > 100) and (y < 200) then readln(a);
end;

begin
onmousedown := md;
rectangle(100, 100, 200, 200);
end.

Comments

У меня ошибки нет - рисуется квадрат.

---

Нее... если нужна графика на ABC.NET - гораздо проще OpenGL подключить=)))

---

квадрат то рисует без проблем

---

но при нажатии проблема

---

и как я понял, это косяк самого паскаля. В более свежей версии, вроде как исправлено. По этому обновите паскаль.

---

а подключать openGL да еще и в паскале для такого, это как стрелять по воробьям из базуки.

---

у меня и так последняя версия 1457.

---

вопрос, а зачем нужно считывание? может нужно что-то другое?

Answer 1

Вот например в таком варианте все работает. readln подразумевает ожидание потому и ошибка. И вообще в чем задача то?

uses graphabc;
var
    a: real;

procedure md(x, y, z: integer);
begin
    if (x > 100) and (x < 200) and (y > 100) and (y < 200) then
        Println(x, y, z);
end;

begin
    onmousedown := md;
    rectangle(100, 100, 200, 200);
end.