| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Консольное приложение [D7, WinXP]

Ozone ©   (2004-11-26 06:17:00) 

Как очистить экран в консольном приложении (типа clrscr в Pascal'e)?

---

Ozone   (2004-11-26 10:23:00) [1]

Gero ©   (26.11.04 09:52) [2]

Спасибо и тебе.

---

Gero   (2004-11-26 09:52:00) [2]

FillConsoleOutputCharacter + FillConsoleOutputAttribute

---

_sulent   (2004-11-26 07:55:00) [3]

uses
 Windows;

var
 mes: string;
 sbi: TConsoleScreenBufferInfo;
 i: integer;
begin
 writeln('clear?: >'); readln(mes);
 if mes = 'y' then begin
   GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi);
     Readln;
     GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),
       sbi);
     for i := 0 to sbi.dwSize.y do    writeln;
 end;
 readln;

---

Наверх