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
但这是程序而不是单元吗?
如果我将Mouse更改为WinMouse,它将消失,但抛出其他错误,提示找不到标识符GETMOUSEX和GETMOUSEY
最佳答案
如果查看文件夹units/rtl,则会找到单位文件“mouse.o”和“mouse.ppu”。我认为文件名之间存在冲突,因为编译器希望另一个单位文件来更新它们。通过将文件名更改为“mousetest.pas”,编译器可以正常运行。
关于syntax - 预期有UNIT,但找到了PROGRAM,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13457412/