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

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

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

Sword-Fish ©   (2003-12-04 01:46:00) 

Доброй ночи ВАМ жители форума !!!
У меня вопрос может быть не в тему !!!
Как мне в моей консольной проге очистить экран т.е. вот код:

program Demo;
{$APPTYPE CONSOLE}
uses SysUtils;
label bl;
var cmd : string;
begin
bl:

здесь надо очистить экран как в паскале "clearscr"

Writeln("<< Demo >>");
Write("Command: ");
readln(cmd);
cmd:=LowerCase(cmd);
if cmd="exit" then exit else goto bl;
end.

Подскажите пожалуйста !!!

---

BiN   (2003-12-04 09:11:00) [1]

а мсдн почитать слабо?
FillConsoleOutputCharacter

там кстати и примерчик есть, кот. так и называется - очистка консольного экрана

---

SkyRanger   (2003-12-04 07:25:00) [2]

Решение для извратов:

for I:=1 to 27 do
writeln("");


В результате он тебе выдаст 27 строк и все содержимое исчезнет из виду :)

---

Наверх