IntegerとPointerについては、ラッパーオブジェクトを作る代わりに、こんな方法が使える。ラッパーオブジェクトはオーバーヘッドと解放の手間があるので、使うならこちらの方が有力。

識別子を短くして、演算子のように見せるために、昨日（[id:lethevert:20060106:p2]）のファンクタのアイデアを利用しています。 また、関数内関数を任意の場所で呼び出せるように、id:ytqwertyさんのλ with INNER FUNCTIONのアイデアを使っています。

こちらはまとめだけです。詳しい説明は[id:lethevert:20060107:p2]にあります。 まずは、使い方。 function DoLoop(N: Integer; clo: IClosure; obj: TObject): TObject; begin if N > 0 then Result := DoLoop(N-1, clo, clo._(obj)) else Result := obj; e…