Как прервать выполнение процедуры?, Нужно прервать процедуру нажатием Esc Опции

[Лёва]

Это процедура редактирования матрицы.
После запуска процедуры на экране появляется сообщение и возможность ввода данных
Мне необходимо сделать так чтобы выполнение процедуры завершалось при нажатии на Esc
т.е происходило как бы отслеживание нажатия на ESC в процессе выполнения процедуры.
чтобы можно было либо ввести данные либо нажать на ESC и завершить ввод.
Иными словами по сценарию После ввывода на на экран сообщения, пользователь сразу вводит данные
но нужно чтобы он мог нажать на ESC чтобы заверить процедуру, а дальше уже по тексту.

procedure Edit;
var i,j,ior,c:integer;
	y:char;

begin
 writeln(#13,#10,#10'Для редактирования введите адрес ячейки i/j формат ввода i<пробел>j');
	repeat
	{$I-}read(i,y,j);{$I+}
	ior:=IOResult;
	if ior<>0 then Write(#13,#10,#10'Необходимо ввести числовое значение, повторите ввод - ')
  until ior=0;
	 if (a[i,j]=1) then
	 a[i,j]:=0
	 else
	 a[i,j]:=1;
	end;

[volvo]

Можешь вставить вот такой цикл:

Да? И что это тебе даст? А если я ввожу число, а не Esc, тогда что, ты будешь просить ввести еще раз? Ничего подобного... Человек начал вводить число, значит надо принимать его ввод...

Лёва

procedure Edit;
var
  i, j: integer;
  ch: char;
  err_i, err_j: integer;
  s: string;

begin
  writeln('enter i<space>j');
  repeat
    ch := readkey;

    if ch = #27 then exit;
    write(ch);

    readln(s); s := ch + s;
    val(copy(s, 1, pos(#32, s) - 1), i, err_i);
    val(copy(s, pos(#32, s) + 1, 255), j, err_j);
    if err_i + err_j > 0 then writeln('enter numbers');
  until err_i + err_j = 0;

  writeln('i = ', i);
  writeln('j = ', j);
  { дальше делай с i, j все что хочешь... }
end.

Сообщение отредактировано: volvo - 20.01.2008 15:52