Скачать: CL | DM;

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

← →
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 строк и все содержимое исчезнет из виду :)

---

← →
BiN ©   (2003-12-04 09:11) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c