Консольное приложение

← →
Sword-Fish © (2003-12-04 01:46) [0]

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

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.

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

← →
SkyRanger © (2003-12-04 07:25) [1]

Решение для извратов:
for I:=1 to 27 do writeln("");

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

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

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

Консольное приложение Найти похожие ветки