RSS订阅 | 匿名投稿
您的位置:网站首页 > 基础 > 正文

Delphi控制台程序怎么清屏

作者:admin 来源: 日期:2018/2/2 23:05:25 人气: 标签:

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,SysUtils;
 
  var
  i:Integer;
  nConsoleHandle : Integer;
  lwWritten : Longword;
  Coord : TCoord;
begin
  try
    Coord.X := 0;
    Coord.Y := 0;
    nConsoleHandle := GetStdHandle(STD_OUTPUT_HANDLE);
    for I := 1 to 12  do Writeln(IntToStr(i));   //输出,用于测试
    Sleep(1000);
    FillConsoleOutputCharacter(nConsoleHandle, #32, 80*24, Coord, lwWritten); //清空
    SetConsoleCursorPosition(nConsoleHandle, Coord); //将光标设置在第一行
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
 
Delphi,WidowsXP下调试通过.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料