こんにちは。

以下のプログラムなんですが、

無限ループを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.