Delphiのレコードヘルパは配列にも使用できた。

Delphiのレコードヘルパは配列にも使用できた。

type
  //数値の配列
  TIntegerDynArray = array of Integer;
  //数値の配列にレコードヘルパを使用する
  TIntegerDynArrayHelper = record helper for TIntegerDynArray
    //合計値を返す
    function Sum: Integer;
  end;

function TIntegerDynArrayHelper.Sum: Integer;
var
  I: Integer;
begin
  Result := 0;
  for I in Self do
    Inc(Result, I);
end;

Writeln(TIntegerDynArray.Create(1, 2, 3, 4).Sum); // 10

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください