- 189 名前：187 mailto:sage [2007/08/13(月) 16:37:52 ]
- ごめん、途中で送信しちゃった。
var
SomeFunction : array[0..3] of TCalcFunction;
として
SomeFunction[0] := Add;
SomeFunction[1] := Sub;
SomeFunction[2] := Multi;
SomeFunction[3] := divi;
と代入すると（それぞれの関数は宣言してあるとする）。
SomeFunction[a](2, 3) でaの値を変えるだけで関数を切り替える事ができる。
