Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как очистить экран в консольном приложении?

Автор: Peerless 7.4.2005, 17:21

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

Автор: Ripper 7.4.2005, 19:20

Смотрим 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

А зачем дважды вызывать 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
);