C#、Vb2005 デリゲート

世界初の8 bitマイクロプロセッサはIntelの８００８と言うチップでプログラムは数字の羅列の
機械語で書いていました。
ジャンプ命令などは飛び先のメモリの番地を直接書くわけです。
この為プログラマは常に紙に書いたメモリマップを持っていました。
そのうちにニーモニックなるものが出てきて、数字の羅列の機械語から命令などは
より人間にわかり易いアルファベットによる文字になりました。
ジャンプ先などの番地も数字でアドレスを書くのではなく、文字によるラベルが使えるように
なりプログラミングの作業性が一段と向上しました。
文字やラベルはアッセンブラと呼ばれるプログラムがCPUが理解できる機械語に直すのです。

C#やVB.NETでメソドと呼ばれる物はプログラムの塊でメモリー上の何処かに有ります。
メソドを呼び出すと言うことは機械語で言えばジャンプ命令が行われると言うことです。
ただしFrameWorkのプログラマはそのメソドがメモリー上の何処に有るかなどということは知らなくても良いのです。
番地に相当する名前を書くだけでメソドを呼び出すことがジャンプ命令などと夢にも思っては居ません。
現代のプログラマにとってはジャンプ命令は禁句でジャンプ命令は構造化の敵なのです。
さてデリゲートですが、デリゲートはメソドの参照を持つクラスです。
参照とは平たく言うとアドレスです。
つまりデリゲートは名前でなくメソドをアドレスで呼び出すことの出来るクラスなのです。
回りまわって又昔に戻ったのです。
クラスに有るメソドの参照を（アドレス）をデリゲートに登録しておくと、そのメソドを
デリゲートで呼び出すことが出来るのです。
厳密にはデリゲートが保持するのはクラスのインスタンスのメソドの参照です。

ただしデリゲートが単純にメソドのアドレスを保持していて、そのアドレスにジャンプしただけでは
不具合が生じます。
メソドには引数を取るものや戻り値を返すものが有からです。
そこで目的のメソドのアドレスを保持することが出来るデリゲートクラスは必ずそのメソドと同じ
戻り値や引数を設定できる方法で宣言します。（デリゲートのプロトタイプ宣言)。
コンパイラはそのプロトタイプを見て、そのデリゲートが目的のメソドの引数や戻り値にマッチ
しているか否かを確認し安全性を保障します。
もしそれが一致していなければビルド時にエラーを報告するはずです。
つまりデリゲートは単にクラスのインスタンスのメソドのアドレスを保持するだけではなく
引数と返値の受け渡しも行なうのです。

これは文字列を引数に取り返値を取らないデリゲートのクラスの宣言である(プロトタイプ)です。
このデリゲートクラスは同じ引数を持ち同じ返値を持つメソドであればどの様なメソドで有っても
その参照(アドレス)を保持できます。
このデリゲートを使って

さてデリゲートの宣言（プロトタイプ）ですが
FrameWorkには既定の宣言（既に行われている）が有ります。
Action<T>と呼ばれるもので１つの引数と戻り値が無いデリゲートが宣言されています。
(Action<T>はFrameWork2.0以上で使用できる。FrameWork3.0以上では更に色々な既定のデリゲートが有る。)
<T>のTにはタイプが入る、上のデリゲートは

はWriteMessageという名前を持っています。
匿名メソドとはこの名前を持たないメソドです。
これを使うと
delegate void dlgAwrite();
と引数を持たないデリゲートを宣言して、
dlgAwrite da = delegate() {Console.WriteLine(msg);};
da();
の様にインラインでメソドを使用することが可能となります。
この匿名メソドによるデリゲートそれが実行されるクラスのスコープを持つために
引数の省略ができてオーバーヘッドが少ない事とデリゲートの為のメソドが同じ場所に
書かれて居る為にコードが見やすい利点があります。

using System;
using System.Collections.Generic;
using System.Text;

namespace DlegateTest
{
delegate void dlgWriteString(string msg);
delegate void dlgAwrite();

//デリゲートで呼ばれるメソドを持つクラス
class WriteToScreen
{
//デリゲートで呼ばれるメソド
public void WriteMessage(string msg)
{
Console.WriteLine(msg);
}
}

class Program
{
static void Main(string[] args)
{
string msg = "Hello World!";

//これはデリゲートとは関係無い普通の呼び出し
WriteToScreen ws = new WriteToScreen();
ws.WriteMessage(msg);

//デリゲートのインスタンスを作成して
//WriteToScreenの WriteMessageの
//インスタンスのアドレスを登録する
dlgWriteString dws = new dlgWriteString(ws.WriteMessage);
//デリゲートの呼び出し
dws(msg);

//FrameWorkで宣言済みのActionデリゲートを使う
Action<string> wm = new Action<string>(ws.WriteMessage);
wm(msg);

//匿名メソドを使用したデリゲート
dlgAwrite da = delegate() {Console.WriteLine(msg);};
da();
}
}

}

Imports System
Imports System.Collections.Generic
Imports System.Text

Module Module1

Delegate Sub dlgWriteString(ByVal msg As String)
Sub Main()
Dim msg As String = "Hello World!"
'これはデリゲートとは関係無い普通の呼び出し
Dim ws As New WriteToScreen()
ws.WriteMessage(msg)

'デリゲートのインスタンスを作成して
'WriteToScreenのWriteMessageの
'インスタンスのアドレスを登録する
Dim dws As New dlgWriteString(AddressOf ws.WriteMessage)
dws(msg)
'FrameWorkで宣言済みのActionデリゲートを使う
Dim wm As New Action(Of String)(AddressOf ws.WriteMessage)
wm(msg)

End Sub
End Module
'デリゲートで呼ばれるメソドを持つクラス
Class WriteToScreen
'デリゲートで呼ばれるメソド
Public Sub WriteMessage(ByVal msg As String)
Console.WriteLine(msg)
End Sub
End Class