Delphiのクラスヘルパー。本気の言語仕様じゃないのが残念だけど、これはなかなか面白い。クラスヘルパーに書いたメソッドは、元のクラスを継承したわけでもないのにインスタンスで呼べる。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; TMyHelper = class helper for TButton function MyHello: String; end; var Form1: TForm1; implementation {$R *.dfm} function TMyHelper.MyHello: String; begin Result := 'Hello!'; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(Button1.MyHello); end; end.