こんにちは。

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

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

こんにちは。

> 無限ループをESCキーで強制的に抜けるんじゃなくて、
> キー入力をスクリプトで検出して抜けたいんですが、
> 何か良い方法はないでしょうか。

GetPos()を呼ぶと、GetPos()の内部で待機状態（無限ループ）に入ります。
と言う事は、GetPos()の仕様（ESCキーでの終了）変更をしない限り不可能なんです。
やるとすれば、MsgBox()にて毎回問い合わせをするかです。

Message('取得する座標を入力して下さい。');
While GetPos(X, Y) = True Do
Begin
Writeln(FloatToStr(X)+','+FloatToStr(Y));
if MsgBox('続けますか？')<>true then Exit; // 追加
End;

こんにちは。

すみません、うまく意味が伝わらなかったようです。

getpos()を改造してほしいわけではなくて、

GETCHAR()のような関数がないかな・・とか。

キー入力を受け付けてくれるものがないかなと

そういった感じのつもりだったのです。

> GETCHAR()のような関数がないかな・・とか。

スクリプトからGetPos()を呼んだ時点で、制御はGetPos()に奪われてしまうんです。
そのため、GetChar()関数を置いたとしても、捕捉は出来ません。
なぜなら、スクリプトはGetPos()が終わるまでに、意識が無いからです。

なんとなくわかりました。

たぶん。

ありがとうございました。