ネタはさておき まあ使ってる使ってないにかかわらず強制リンクしちゃうよっていう、スマートリンク？何それ食えんの？的な機能だけど、こいつの威力はさておき、何が酷いかってdocwikiっすよ。 一応これXEでの新機能ってことになってるんだけど*1、英語版で…

一瞬でusesしたユニットごと型をリンクしexeサイズを肥大化させる。 相手は死ぬ。

In演算子 Inをオーバーロードすると、集合演算子としてのinの動作を定義できるようになる*1。 // サンプル type TStrRec = record public Value: TArray<string>; class operator In(const A: string; const B: TStrRec): Boolean; end; class operator TStrRec.In(c</string>…

まあこちらはdocwikiにも載ってたんだけど。 experimental指令 ユニット全体、あるいは特定のシンボルがテスト用であることを示す指令。 次のように使う（と、コンパイル時に「これはテスト中のもんやで！」と出る）。 unit Unit1 experimental; // 「W1007 …

と思ったのに たった1日でdocwikiから消されとるがなｗｗｗｗｗ まあせっかく調べたし書こう…。 そもそもTVirtualMethodInterceptorって何よ 動作検証をしたところ、仮想メソッドの呼び出しをフックし、呼び出し前と呼び出し後にイベントを発生させることの…

1月1エントリ 順調に達成してるな…！と思ったらすでに4月に破綻してた。 そんなことよりカスタム属性やろうぜ！ 先日カスタム属性とRTTIを利用したCSV読み込みクラスを作る機会があったので、それらの利用サンプルとして多少汎用化しつつ公開してみる。C#は…

たぶん バグじゃなくて仕様なんだろうけどね。 指定できたらどうなるの？ 例えばTStreamにReadInt8やReadUInt64みたいなサイズ別読み取りメソッドを実装したいときなんかに、実装部の記述量の大幅削減が期待できる。 指定できない場合 type THogeStream = cl…

ハッシュテーブルといえば Delphiにジェネリクスが導入される以前、ハッシュテーブル（らしきもの）を使おうと思うと、標準VCLではIniFilesユニットに含まれるTHashedStringListしかなかった*1。一方、導入後はGenerics.CollectionsユニットのTDictionaryが…

var s: string; for s in ['a', 'b'] do ... ふと何気なくこのようなコードを書いたら構文チェックが通ったので、「あれ？これ何気に便利じゃね？」と思ったら致命的エラーとやらでコンパイルは通らず。がっかり。でももしやと思い次のようなコードを試して…

まず列挙型と配列のおさらい type TGender = (Male, Female); // これが列挙型 var population: array[TGender] of UInt64; // こうやって添字に指定できる begin population[Male] := 15; population[Female] := 20; end; 列挙型の一部を添字にしたいとき t…

事の発端 http://pc12.2ch.net/test/read.cgi/tech/1259667697/312-315n 312 ：デフォルトの名無しさん：2010/02/26(金) 13:16:25 TBase = class public class const Value: Integer; abstract; end; TBaseClass = class of TBase; TExtend1 = class(TBase) …

この一見関係ないような組み合わせ、実は巨大五輪のLED制御部分がDelphiで書かれているらしい。こういう表舞台で使われることってまだあるんだなーとか書いちゃうと怒られそうだけど、それにしても今まで書かれたDelphiプログラムで一番巨大なんじゃないかな…

無名メソッドの導入によってSynchronizeメソッドが拡張されたのは知ってる人も多いだろうけど、ついでにクラスメソッド版のSynchronizeも作られたことは俺以外に2人くらいは知らないかもしれない。宣言部を引用してみるとこんな感じ。 type TThread = class …

エターナルフォースOwnsObjects*1！ type TStringList = class(TStrings) ... constructor Create(OwnsObjects: Boolean); overload; ... end; Create時にTrueを指定しておくと、Freeをしたその一瞬でObjectsプロパティに含まれるインスタンスを解放させる*2…

Entropy Overload: Using anonymous methods in method pointers リンク先の記事でやってることは前書いたのとほぼ同じなんだけど、そこはかとなくあちらの方が華麗なコードぽくて悔しいです＞＜ ただ、参照カウントの問題も同じく解決されてなかったので、…

本来同名で複数定義することのできないプロパティを、default指定した場合に限りオーバーロードできちゃう、という小ネタ。 type TFoo = class private function GetItem(Index: Integer): string; overload; function GetItem(const Name: string): string;…

var func: TFunc<Integer,BOOL>; begin func := // NG function(Data: Integer): BOOL stdcall begin Result := True; end; このように書こうとすると、コンパイラに「互換性ねーよ糞が」とか怒られるんだけど、そもそもTFunc<>の宣言を見てみると、 type TFunc<T,TResult> = referenc</t,tresult></integer,bool>…

2ヶ月ちょっとくらい放置だったのはこの際忘れるとして。C#では次のように無名のイベントハンドラを記述できるので、 wahaa.Click += delegate { MessageBox.Show("わはー"); }; Delphiに無名メソッドが実装された時、きっとできるんだろうと甘く考えてたら…