Как можно гарантированно очистить экран в консольном приложении

Как можно гарантированно очистить экран в консольном приложении

Автор: Олег Кулабухов

Нужно просто использовать GetConsoleScreenBufferInfo() для ввода нескольких пустых строк.

program Project1;
{$APPTYPE CONSOLE}
uses
  Windows;
{$R *.RES}
var
  sbi: TConsoleScreenBufferInfo;
  i: integer;
begin
  Writeln('A Console Applicaiton');
  Writeln('Press Enter To Clear The Screen');
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  Readln;
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
    sbi);
  for i := 0 to sbi.dwSize.y do
    writeln;
  Writeln('Press Enter To End');
  Readln;
end.

Клапана asco Новосибирск. Клапан asco. . Посёлок Львовские Озёра - львовские озера. Участки под дачи. . Транспорт, Перевозки Грузов: морские перевозки грузов. . листы металлочерепицы .