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

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

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

Автор: Dicar 20.12.2004, 13:22

Как в Delphi в консольном режиме очистить экран и какой модуль за это отвечает?
Стандартный clrscr не работает т.к. модуля crt нет.

Автор: Snowy 20.12.2004, 15:29

Код


procedure Cls; //ClearScreen
var
 ConHandle: THandle; // Дескриптор консольного окна
 Coord: TCoord;  // Для хранения/установки позиции экрана
 MaxX, MaxY: Word;    // Для хранения максимальных размеров окна
 NOAW: LongInt; // Для хранения результатов
begin
  ConHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
  Coord:=GetLargestConsoleWindowSize(ConHandle);
  MaxX:=Coord.X;
  MaxY:=Coord.Y;
  Coord.X:=0; Coord.Y:=0;
  FillConsoleOutputCharacter(ConHandle, ' ', MaxX*MaxY, Coord, NOAW);
end;

Автор: NiJazz 20.12.2004, 18:36

Код


procedure ClearConsole;
var i: integer;
begin
 for i:=1 to 50 do 
   writeln;
end;