第一種臨界不測日記

Javaなんかで、DI(Dependency Injection)っつー、
概念がありまして、
妙にもてはやらされていたころが、あったんですが、
(今も？)
これがなんなのか、よくわかってませんでした。

この前、
『Dependency Injection の基本的なアイディア - いやなブログ』
を見て、氷解。
そうか、依存性注入ってそういうことか！

Javaとかだと、フレームワークとか使うみたいですが、
そんなんなしにして、
手っ取り早くDelphiでもできんのかなーと思っておりました。

interfaceを使うのもなーってとき。
小規模な時。
手っ取り早い方法を書いてみたい。
（interface版は、また後で）

Delphiなら、メソッドポインタ(TNotifyEventやら)を作って、
依存性を外部におけばよい。
それだけじゃん。

例えば、THogeってオブジェクトがあって、
ログをとりたいが、ログ取り用の Logger オブジェクトは一応あるんだが、
それに依存させたくないなーって、場合。

unit HogeUnit; interface type TOnLog = procedure( Sender: TObject; Msg: string) of Object; THoge = class FOnLog: TOnLog; public procedure FooBar; property OnLog: TOnLog read FOnLog write FOnLog; end; implementation procedure THoge.FooBar; begin if Assigned(FOnLog) then FOnLog(Self, 'FooBar!') end;

unit MainUnit; interface uses HogeUnit; type TMain = class : procedure Main; procedure HogeOnLog(Sender: TObject; Msg: string); end; implementation procedure TMain.Main; begin with THoge.Create do try OnLog := HogeOnLog; FooBar; finally Free; end; end; procedure TMain.HogeOnLog(Sender: TObject; Msg: string); begin Logger.Write(Msg); end;

※HogeOnLog;が、間違っていたので修正orz

おー、簡単にできるじゃないか。
っていうか、Delphi使いなら、誰でも知っている、
あたり前田のクラッカーなテクニック。

これで、使う側でメソッドポインタを定義して、いろいろ指定してやれば、
他のユニットに依存しなくてすむ。

まー、もっとも、上のページの Ruby の例のような、
柔軟にはいきませんけど。
（あれは、型なし言語だからできる技だよな）