Как выполнить интервал и отобразить рез его выполнения в консоли?

[XerSon]

Всем привет,

При завершении работы консольного приложения выполняю следующее:

WriteLn('Application will be automatically closed, in 10 seconds!');
Sleep(10000);
end.

А как выполнить сей интервал и писать в консоли одной строкой с отчетом интервала до завершения работы?

Типа так:

WriteLn('Application will be automatically closed, in 10..9..8..7..1 seconds!');
end.

[vovk]

  var i:integer=10;
.......
while i>=0 do
       begin
         Writeln('Application will be automatically closed, ', i, ' seconds!');
       inc(i,-1);
       sleep(1000);
       end;

[XerSon]

Данный код, пишет в консоли, добавляю новую строку, а мне нужно было одной! Возможно ли это в консоли?

[Пепел Феникса]

стирайте строку и пишите снова
(обычно в таком случае очищают экран и остается лишь эта строка)

[vovk]

  var i:integer=10;
procedure CLS;
  var coordScreen:coord;
  bSuccess: Boolean;
  cCharsWritten: DWord;
  csbi: CONSOLE_SCREEN_BUFFER_INFO;
  dwConSize:dWord;
  begin

  GetConsoleScreenBufferInfo( GetStdHandle(STD_OUTPUT_HANDLE), csbi );
  dwConSize := csbi.dwSize.X * csbi.dwSize.Y;
  coordscreen.X := 0;
  coordscreen.y := 0;
  FillConsoleOutputCharacter( GetStdHandle(STD_OUTPUT_HANDLE), Char(' '),dwConSize, coordScreen, cCharsWritten );
  GetConsoleScreenBufferInfo( GetStdHandle(STD_OUTPUT_HANDLE), csbi );
  FillConsoleOutputAttribute( GetStdHandle(STD_OUTPUT_HANDLE), csbi.wAttributes, dwConSize, coordScreen, cCharsWritten );
  bSuccess := SetConsoleCursorPosition( GetStdHandle(STD_OUTPUT_HANDLE), coordScreen );
  end;

.......

 while i>=0 do
       begin
         CLS;
         Writeln('Application will be automatically closed, ', i, ' seconds!');
       inc(i,-1);
       sleep(1000);
       end;