第一種臨界不測日記

いろいろ実験していたのですが、
Delphi8辺りから導入された class helperが結局のところ使えない件。
（今更ですけどｗ）

簡単に言うと、2つ以上の class helper が同時に適用できない。

コード：
program test; {$APPTYPE CONSOLE} uses SysUtils, Classes; type // class helper No.1 TAspectClassHelper = class helper for TStringList function Add(const S: string): Integer; end; // When string adds, write logs function TAspectClassHelper.Add(const S: string): Integer; begin Writeln('start - TStringList.Add(' + S + ')'); Result := inherited Add(S); Writeln('end - TStringList.Add'); end; type // class helper No.2 TListTestClassHelper = class helper for TStringList function Add(const S: string): Integer; function ToString: string; end; // When string adds, add message function TListTestClassHelper.Add(const S: string): Integer; begin Result := inherited Add(s + ' in test'); end; // convert items to string function TListTestClassHelper.ToString: string; var s: string; begin Result := ''; for s in Self do Result := Result + s + ', '; end; procedure Main; var s: TStringList; begin s := TStringList.Create; try s.Add('Hoge'); s.Add('Moge'); s.Add('Mage'); Writeln('Count = ', s.Count); Writeln('All = ', s.ToString); Writeln; finally s.Free end; end; begin Main; Writeln('Hit RETURN key!!'); Readln; end.

実行結果：

Count = 3
All = Hoge in test, Moge in test, Mage in test,

Hit RETURN key!!

上記のコードの場合、
TListTestClassHelper だけが適用され、
TAspectClassHelper が適用されない。

class helperをそれぞれ各ユニットに分けた場合、
usesした順序でどれが適用されるかが決定されます。

う、うーむ。
いざと言うときに困る仕様だなー。
まあ、当初から言われていた不都合だけども。

もし複数class helper適用が可能ならば、
Ruby並みの mixin が可能な柔軟性を秘めるのですが……。

……でも、実は、
すでに似たようなことはできるんです！

必殺型キャスト!

program test; {$APPTYPE CONSOLE} uses SysUtils, Classes; type TAspectListHelper = class(TStringList) function Add(const S: string): Integer; reintroduce; end; function TAspectListHelper.Add(const S: string): Integer; begin Writeln('start - TStringList.Add(' + S + ')'); Result := inherited Add(S); Writeln('end - TStringList.Add'); end; type TListTestHelper = class(TStringList) function Add(const S: string): Integer; reintroduce; function ToString: string; end; function TListTestHelper.Add(const S: string): Integer; begin Result := inherited Add(s + ' in test'); end; function TListTestHelper.ToString: string; var s: string; begin Result := ''; for s in Self do Result := Result + s + ', '; end; procedure Main; var s: TStringList; begin s := TStringList.Create; try TAspectListHelper(s).Add('Hoge'); // ! TAspectListHelper(s).Add('Moge'); // !! TListTestHelper(s).Add('Mage'); // !? Writeln('Count = ', s.Count); Writeln('All = ', TListTestHelper(s).ToString); // !? Writeln; finally s.Free end; end; begin Main; Writeln('Hit RETURN key?'); Readln; end.

実行結果：

start - TStringList.Add(Hoge)
end - TStringList.Add
start - TStringList.Add(Moge)
end - TStringList.Add
Count = 3
All = Hoge, Moge, Mage in test,
 
Hit RETURN key?

……できてない('A`)

型指定していてダックタイピングぽくなってないし、
こんなの mixin とか言ったら怒られる。
それに同じメソッド(add();)を拡張しようとしても、
2つ同時に適用はできてない。
(そもそも、型安全じゃない件)

全然ダメダメなオチだなあ。

次回は、そろそろ Delphi2009 について語ってみたいところだけど……。