Graph 如何使用图形单元在Turbo Pascal中创建无闪烁动画？

您好，我有以下Turbo Pascal程序：

program problem;
uses crt,graph;
var graphicsdriver,graphicsmode,p,i:integer;
begin
 graphicsdriver:=detect;
  initgraph(graphicsdriver,graphicsmode,'');
  setvisualpage(1);
  setactivepage(0);
  p:=0;
  for i:=1 to 2000 do begin
    outtextxy(round(i/50),100,'test');
    setvisualpage(p);
    p:=abs(p-1);
    setactivepage(p);
    cleardevice;
  end;
end.

程序绘制到一个页面上，并且仅在完成绘制页面后才显示该页面，然后显示绘制的页面，直到完成下一个页面

---

这应该可以，但它不能，它完美地绘制了第一页，但第二页不是从0,0开始的，而是从屏幕中间开始的。请帮我解决这个问题。谢谢你的建议

我猜您的显卡返回的配置与turbo pascal期望的不同

这个图形单元很可能无法在现代计算机上工作

我试着用这个。它把你的文字画在正确的位置，但是有各种各样的闪烁。（FP-Graph单元是对TP单元的重写，它被认为是有缺陷的。）

如果是我，我会看看SDL和Cairo，它们都附带了免费的pascal。这里还有一个优秀的绘图库

---

我不知道他们是否会使用turbo pascal，但free pascal是免费的，跨平台的。

我猜您的显卡返回的配置与turbo pascal期望的不同

这个图形单元很可能无法在现代计算机上工作

我试着用这个。它把你的文字画在正确的位置，但是有各种各样的闪烁。（FP-Graph单元是对TP单元的重写，它被认为是有缺陷的。）

如果是我，我会看看SDL和Cairo，它们都附带了免费的pascal。这里还有一个优秀的绘图库

---

我不知道他们是否会使用turbo pascal，但free pascal是免费的，并且是跨平台的。

FPC的图形特征可能与平台相关。FPC的图形特征可能与平台相关。