0 
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 Fatal: Syntax error, UNIT expected but PROGRAM found but this is a program not a unit ?

マウスを WinMouse に変更すると消えますが、識別子が見つからない GETMOUSEX と GETMOUSEY という他のエラーが表示されます

4

1 に答える 1

1

units / rtlフォルダーを見ると、ユニットファイル「mouse.o」と「mouse.ppu」があります。コンパイラは別のユニットファイルがこれらを更新することを期待しているため、ファイル名の間に矛盾があると思います。ファイルの名前を「mousetest.pas」に変更することで、コンパイラーはすべて正常に実行しました。

于 2012-11-19T16:42:58.420 に答える