Чтение с экрана.

[Пaвeл]

Добрый день!
Я программирую на Delphi. Такой вопрос: с экрана что-то вводится, я это читаю, с этим работаю, и вдруг мне надо вернуться в начало ввода, на первую строчку, которую ввели. Можно ли это сделать?

[Sazary]

и вдруг мне надо вернуться в начало ввода, на первую строчку, которую ввели. Можно ли это сделать?

Да. Через API.
Пример:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;
var
p : _COORD;
begin
writeln('1234');
p.X := 0;
p.y := 0;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),p);

writeln('1455666'); // будет выведено в первой строке

readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Пaвeл]

Большое спасибо!