▼ノベルゲームツール作っちゃうぞ！

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/ugikoscr.txt
↑
上のソースをダウンロードして ugikoscr.pas　と名前を変更し
プロジェクトに追加して下さい。


GikoScript.ExecToVar('1+2*3') と呼ぶだけで値 6が得られます
GikoScript.ExecToStr('1+2*3') なら文字列として結果がえられます

変数を使いたい場合は
GikoScript.LET('L1=123'); 　のように 変数名=式の文字列を渡して下さい
GikoScript.LET('ｲﾚﾃﾐﾛ ここに');　とやれば 'ここに'という変数に入力出来ます
これはギコBASICの機能がそのまま残っているからです
なお、TStringsではなく文字列で渡すので　　イッテヨシ　とメジルシは　無効です
条件は使えますがもともと else はサポートしていません

>>63
これは>>1には難しすぎやしない？

Delphi初めて数週間の人には>>63のソースは難易度高過ぎかな。
見たら目眩起こすかも。

使い方は難しくないと思うのですが？　ダメですか？

手順としては
１、ugikoscr.pas　と名前を変更しプロジェクトに追加
２、uses に ugikoscr を追加
３、GikoScript.LET(　'変数名=計算式');　で変数名に代入
４、GikoScript.ExecToStr(　'計算式');　で計算結果が文字列として返って来ます

だけです。　他の機能を使わなければ問題ないと思います

なお、計算式中で文字列を使う場合は "" か ' ' のどちらかで囲みます。

GikoScript　オブジェクトは最初に使おうとしたときにインスタンスは作成
され、プログラム終了時に解放されるので　作成、解放の手間は不要です

実は素人じゃないから問題ないだろ

多少使いづらくなるかもしれないが，アセンブラ〜のごとくに
#add a 1
#sub b 2
とかの単純四則命令で実装するというのもありかと思う。

なんにしても，
ループや，条件分岐の制御構文の仕様まで視野にいれて
考えるべきでしょう。

会社から帰ってきました。

>>63さんの奴をスクリプトに組んでみました。

0005のバージョンがそうです。
http://members.tripod.co.jp/xdL3JlCE/

calコマンドで計算できます。
variコマンドは変数に値を代入。

その他細かいことはテキストに書いてます。



これでまた一つ課題が増えました。
変数を文字列の中に表示させるにはどうしたら良いのだろう・・・

test.txtの中で普通に読み込んでるテキスト部分に
「このテキストを表示したのは'i'回目です！」
ってやっても、それがそのまま表示されるし・・・

'今回で'+inttostr(i)+'回目'

>>71 それだと駄目な事ない？ やってみたけど無理だった

#calstr "回数は"+toStr(i)+"です"

ところで１よ。
ノベルツールの名前はなんていうのさ。
みんなで決めていい？

名前候補
１．オマエモナー
２．アボーン

関数はソースで　published　の所に定義するだけで　自分で増やせるみたい

例： copy　と同じ動きをする関数 MID 　MID("12345",2,2)で文字 "23"　を返す

published の 下の toInt / toStrが並んでる所で
function MID(const dt: array of Variant): Variant;

実装部で
function TGikoScr.MID(const dt: array of Variant): Variant;
function toInt(d:Variant):Integer;begin Result:=d;end;
begin
case high(dt) of
　0: Result:= VarToStr(dt[0]);
　1: Result:= copy(VarToStr(dt[0]),toInt(dt[1]),High(Integer));
　2: Result:= copy(VarToStr(dt[0]),toInt(dt[1]),toInt(dt[2]));
else error('変数の数が合わない');
end;
end;