pp4d

version 0.5です。 http://www.geocities.jp/lethevert/softwares/pp4d/index.html
インデント幅とタブ幅の変更を行いやすくして、デフォルト値を変更しました。
また、「#」の行を変数宣言として認識するようにしました。今のところ、関数の先頭部分でしかこれが有効ではないですが。
あと、ちょっとしたバグを修正。
サンプル（↓）

::TForm1 <
JoinString -> string
	> lst array of string
	> sep ^string
	
	# I, J: Integer;
	
	Result := ''
	for i := 0 to Length(lst) -1
		Result := Result + (makeSubString)
	Result := Copy(Result, 1, Length(Result) - Length(sep))
where
	var
		i: Integer
	makeSubString -> string
		Result := lst[i] + sep

これがこうなる。

function TForm1.JoinString(lst: array of string; sep: ^ string): string;
  var
    I: Integer;
    J: Integer;
    i: Integer;
  function makeSubString: string; forward;
  function makeSubString: string;
    begin
      Result := lst [ i ] + sep;
    end;
  begin
    Result := '';
    for i := 0 to Length ( lst ) - 1 do
    begin
      Result := Result + ( makeSubString );
    end;
    Result := Copy ( Result , 1 , Length ( Result ) - Length ( sep ) );
  end;