Цитата:
|
Сообщение от js_m1m
Благодарю, все верно. А есть какие-нибудь аналоги clrscr на делфи? И как ими пользоваться(погугли и ЯННП).
|
Просто так виндовое консольное окно не очистить. Самый простой способ - забить окно пустыми символами или сразу строками.
Для символов (выдрано из контекста):
procedure ClearConsoleWindow;
var
ConsoleHandle:THandle;
ConsoleInfo: TConsoleScreenBufferInfo;
Coord:TCoord;
WrittenChars:DWORD;
begin
FillChar(ConsoleInfo,SizeOf(TConsoleScreenBufferIn fo),0);