delphi控制台程序怎么清屏

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下调试通过.

推荐分享