主题：TP下有清屏的函数吗？
只在乎你
[专家分：560] 发布于 2005-10-30 23:09:00
如题，类似TC的clrscr()
回复列表 （共14个回复）
11 楼
小田甜 [专家分：3910] 发布于 2005-11-18 18:39:00
uses Dos;
var Command: string[79];
begin
Command := '/C ' + 'CLS'{Dos命令,清屏};
SwapVectors;
Exec(GetEnv('COMSPEC'), Command);
SwapVectors;
if DosError <> 0 then
Writeln('Could not execute COMMAND.COM');
end.
12 楼
xuyifan [专家分：40] 发布于 2008-07-08 12:20:00
TP有BUG
用单元补丁！：http://www.mydrs.org/program/list-id=136.htm
program aa;
uses crt;
begin
clrscr;｛一般在write语句后）
end;
13 楼
xuyifan [专家分：40] 发布于 2008-07-08 12:22:00
TP有BUG
用单元补丁！：http://www.mydrs.org/program/list-id=136.htm
program aa;
uses crt;
begin
clrscr;
end;
14 楼
angwuy [专家分：2280] 发布于 2008-07-09 08:53:00
怎么N年前的帖子又翻出来了
沉回下去!
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — TP下有清屏的函数吗？