配列プロパティとインデクサ

梅林(umebayashi@wankuma.com) — Thu, 08 Feb 2007 01:07:00 GMT

以前のεπιστημηさんのVB嫌い[2]というエントリーで
VBの引数付きプロパティとC#のインデクサを比較する話がありました。

Delphiにも配列プロパティというのがありまして、VBの引数付きプロパティと
同じような使い方ができます。(のはず。VB知らないので間違ってたらご指摘ください。)

type
TAnimals = class(TObject)
private
    function GetDog(Index: Integer): TDog;
    procedure SetDog(Index: Integer; Value: TDog);
    function GetCat(Index: String): TCat;
public
    //ReadWriteプロパティ
    property Dogs[Index: Integer]: TDog read GetDog write SetDog;
    //ReadOnlyプロパティ
    property Cats[Index: String]: TCat read GetCat;
end;

C#のインデクサと比較しての便利さは、やはりgetterとsetterのメソッドを定義するだけで
使えるところ。
そこで、C#2.0のジェネリックを使って、以下のようなユーティリティクラスを作ってみました。

public delegate V ArrayProperty1Get<V, K1>(K1 key1);
public delegate void ArrayProperty1Set<V, K1>(K1 key1, V value);

public class ReadOnlyArrayProperty1<V, K1>
{
public ReadOnlyArrayProperty1(
ArrayProperty1Get<V, K1> getMethod)
{
this.getMethod = getMethod;
}

private ArrayProperty1Get<V, K1> getMethod;

public V this[K1 key1]
{
    get
    {
      return getMethod(key1);
    }
}
}

public class ReadWriteArrayProperty1<V, K1>
{
public ReadWriteArrayProperty1(
    ArrayProperty1Get<V, K1> getMethod,
    ArrayProperty1Set<V, K1> setMethod)
{
    this.getMethod = getMethod;
    this.setMethod = setMethod;
}

private ArrayProperty1Get<V, K1> getMethod;
private ArrayProperty1Set<V, K1> setMethod;

public V this[K1 key1]
{
    get
    {
      return getMethod(key1);
    }
    set
    {
      setMethod(key1, value);
    }
}
}

これを使うと

public class Animals
{
public Animals()
{
Dogs = new ReadWriteArrayProperty1<Dog, int>(GetDog, SetDog);
Cats = new ReadOnlyArrayProperty1<Cat, string>(GetCat);
}

private Dog GetDog(int index)
{
//
}

private void SetDog(int index, Dog value)
{
//
}

private Cat GetCat(string index)
{
//
}

public ReadWriteArrayProperty1<Dog, int> Dogs;
public ReadOnlyArrayProperty1<Cat, string> Cats;
}

class Program
{
static void Main(string[] args)
{
    Animals animals = new Animals();
    animals.Dogs[0] = new Dog("パトラッシュ");
    animals.Dogs[1] = new Dog("ラッシー");
    animals.Cats["ABC"] = new Cat("たま"); //コンパイルエラー
}
}

みたいなことができます。

「インデクスが2つ以上ある場合はど～するんや」と突っ込まれそうですが
その場合はK2、K3、…と型パラメータを増やしたバージョンを追加します。

私の経験上、インデクスが4つ以上もあるような配列プロパティには、自社開発の
アプリも含めて出合った記憶がありません。