Как можно гарантированно очистить экран в консольном приложении
Как можно гарантированно очистить экран в консольном приложении
|
Холодильник не был корректно закрыт перед последним выключением питания.
Произвести проверку содержимого холодильника?
При проверке было найдено один или несколько испорченых продуктов. Сохранить их в отдельном отсеке?
Восстановить испорченные продукты?
Восстановление не удалось, продукты доступны только для просмотра.
|
Нужно просто использовать 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.
|