Question

program MouseInput;
Uses WinCrt,Mouse, sysutils,Graph;
Var
   GraphicsDriver, GraphicsMode,
   ErrCode : smallint;
   x, y: word;

Begin
x:=GetMouseX;
Y:=GetMouseY;

     Writeln('Initialising Graphics, please wait...');
     GraphicsDriver := Detect;
InitGraph(GraphicsDriver, GraphicsMode,'');
 x := GetmouseX();
 y := GetmouseY();
     OuttextXY(0,0,inttostr(x));
     readln();
end.

我有这段代码，但是会出现这种语法错误： 1/1 mouse.pas 致命：语法错误，UNIT预期但是找到了PROGRAM 但这是一个不是单位的程序吗？

如果我将鼠标更改为WinMouse，它会消失，但会抛出其他错误，表示未找到标识符GETMOUSEX和GETMOUSEY

Answer 1

如果你查看文件夹units / rtl，你会发现单位文件'mouse.o'和'mouse.ppu'。我认为文件名之间存在冲突，因为编译器需要另一个单元文件来更新它们。通过将文件名更改为'mousetest.pas'，编译器就可以完成所有操作。

UNIT预计，但计划发现

1 个答案: