こんにちは。
以下のプログラムなんですが、
無限ループをESCキーで強制的に抜けるんじゃなくて、
キー入力をスクリプトで検出して抜けたいんですが、
何か良い方法はないでしょうか。
よろしくお願いします。」
// 座標値書き出しサンプルプログラム
// 2008/12/24 NabeTech
Program PosToCSV;
var
X, Y : double;
Begin
InitEditor('Position.CSV');
Message('取得する座標を入力して下さい。');
While GetPos(X, Y) = True Do
Begin
Writeln(FloatToStr(X)+','+FloatToStr(Y));
End;
End.