VPF::Как очистить экран в консольном приложении?

Peerless

Дата 7.4.2005, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.3.2005

Репутация: нет
Всего: нет

Хочу написать детскую програмку в Delphi с помощю консольного прилохения. Как можно очистить экран в консольном приложении?
Добавлено @ 17:26
Сра зу извеняюсь, ошибочка в теме smile

Ripper

Дата 7.4.2005, 19:20 (ссылка)

(нет голосов)

Загрузка ...

Lonely soul...

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: 1
Всего: 23

Смотрим DRKB:

Код


program Project1; 
{$APPTYPE CONSOLE} 
uses 
  Windows; 
{$R *.RES} 
var 
  sbi: TConsoleScreenBufferInfo; 
  i: integer; 
begin 
  Writeln('A Console Applicaiton'); 
  Writeln('Press Enter To Clear The Screen'); 
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), 
    sbi); 
  Readln; 
  GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), 
    sbi); 
  for i := 0 to sbi.dwSize.y do 
    writeln; 
  Writeln('Press Enter To End'); 
  Readln; 
end.

Дык.. а в паскале простое cls ... %)

--------------------

"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом

Петрович

Дата 8.4.2005, 00:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

А зачем дважды вызывать GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), sbi); ?

А еще, можно воспользоваться функцией
BOOL FillConsoleOutputCharacter(
HANDLE hConsoleOutput, // handle to screen buffer
TCHAR cCharacter, // character
DWORD nLength, // number of cells
COORD dwWriteCoord, // first coordinates
LPDWORD lpNumberOfCharsWritten // number of cells written
);

--------------------

Все знать невозможно, но хочется

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »