いつの間にか動的配列はCreateできるようになっていた。

Delphi TIPS

type TIntArray = array of Integer; var IntArray: TIntArray; StrArray: TArray<string>; begin IntArray := TIntArray.Create(2, 3, 5, 7, 11,); // [2, 3, 5, 7, 11] StrArray := TArray<string>.Create('foo', 'bar'); // ['foo', 'bar'] end; 不覚にもこんな基本的な機</string></string>…

2009-10-17

for-in-doを使ったC#のusingもどき。

Delphi

先日書いたような、インターフェースの参照カウントを利用したスマートポインタは便利は便利なんだけど、基本的に参照カウントの変動は（nilなどを明示的に代入しない限り）手続きや関数を抜ける際に行われるので、使い終わったらさっさと解放して欲しいとい…

2009-10-15

TEncodingを拡張する。

Delphi TIPS

普段から何かとデフォルト文字コードがShiftJISだったりして、DelphiでもShiftJISを扱いたい。だけどDelphiで使おうと思ったら、 var enc: TEncoding; begin enc := TEncoding.GetEncoding(932); try // ShiftJISを扱う処理 finally enc.Free; end; end; な…

2009-10-15

Delphiでスマートポインタを。

Delphi TIPS

ティファニーで朝食を、みたいな感じで書いたつもりが全然元ネタの香りもしない感じになったのは置いとくとして、Delphiにジェネリクスが実装されたのでスマートポインタも実装し放題な今日この頃、というか時期的にはもう旬は終わった感もあるくらいなので…

2009-10-10

TIdHTTP.Getで文字化けしない方法＠Delphi2010。

Delphi TIPS

Delphi2010版というよりIndy10最新版でのやり方と言った方が正しいけど、以下のようにすればOK。 IdHTTP1.Response.CharSet := 'Shift_JIS'; これだけであとはGetを呼ぶと内部で変換した上で返してくれる。もちろん決めうちなので自動で文字コード判別はで…

2009-10-04

既存のレコードにヘルパーメソッドを追加する。

Delphi TIPS

SyncObjs.pasを何気なく眺めていたところ、こんな記述が。 TCriticalSectionHelper = record helper for TRTLCriticalSection ... どうやらクラスヘルパーはレコードに対しても使える模様*1。ただ、VCL内でもたったの3箇所*2しか使われていない、"record hel…

2009-10-03

ジェネリックレコード（クラス）と無名メソッドの組み合わせでバグ。

Delphi Delphi2010

まずは再現コード。 // 以下Project1.dpr program Project1; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'Unit1.pas'; var foo: TFoo<TObject>; proc: TProc; begin proc := foo.Bar(); // *1 proc; // *2 end. // 以下Unit1.pas unit Unit1; interface uses SysUti</tobject>…

2009-09-29

なぜクラスヘルパーが使いたかったかというと。

TList.ToArrayメソッドが「コンパイラの対応待ち」ということで何故かコメントアウトされてたので、外部から同じコード流し込んで使えるかどうか検証してみようと思ったので。結果的にクラスヘルパーは使えなかったけど、とりあえず同等のコードを書いて動…

2009-09-29

ジェネリッククラスにクラスヘルパーを使う。

Delphi

結論から言えば無理でした☆ E2508 型パラメータはこの型で許可されません。とコンパイラに怒られます。 type TListHelper<T> = class helper for TList<T> ... TListHelper = class helper for TList<Integer> ... そのままでも、型引数を指定した上でもダメ。ただし後者は</integer></t></t>…

2009-09-27

DiagnosticsユニットのTStopwatch。

Delphi Delphi2010

時間計測用。かなり目立たない位置にいるけど、こんなのが追加されてた（ひょっとしたら2009からあったかもしれないけど）。 C#使いの人はすぐに分かっただろうけど、どうやら.NETのStopwatchクラスの移植みたい（ちゃんと確認したわけじゃないけど）。少な…

2009-09-26

TTouchKeyboardをいぢ（め）る。

Delphi Delphi2010

2010買ったので何か2010っぽいことをやってみようとした結果がこれだよ！というわけで、とりあえず今回から新たに付属してるコンポーネントであるTTouchKeyboardの描画周りを弄ってみる。 TTouchKeyboardにはDrawingStyleやGradientStart（End）といったプロ…

2009-09-05

Delphiでリフレクションもどきその2 メソッド名の取得

Delphi

Delphi2010で強化されたRTTIを使えばメソッド名の取得なんて超簡単なんだろうけど、まぁそれはそれで。メソッド名の取得は、 publishedなメソッドであること専用の関数などがなくUndocumentedな力技であることの2点を除けばわりとシンプルで汎用的に使え…

2009-08-24

nilの逆参照

Delphi TIPS

nilもポインタなので逆参照できる。なので先日のnilを渡すサンプルは次のようにも書ける。 ReadProcessMemory(..., PDWORD(nil)^); // 前回の例 ReadProcessMemory(..., DWORD(nil^)); // 今回の例

2009-08-16

多次元配列の初期化。

Delphi TIPS

Delphiの多次元動的配列は動的配列の動的配列という実装なので、メモリ上の配置は必ずしも連続しておらず（静的な場合は連続している）、Length(Hoge[0])の要素は10コだけど、Length(Hoge[1])の要素は2コ、というようにそれぞれ別の長さを設定してやることが…

2009-08-16

参照渡しのパラメータにnilを渡す

Delphi TIPS

動的配列の参照とほとんど同じだけど、例えばWin32APIのReadProcessMemoryの引数であるlpNumberOfBytesReadは本来オプションであり、nilを渡しても問題のないはずが、Windows.pasでは参照渡しとして宣言されているために直接nilが指定できなかったりする。 …

2009-08-16

型なしパラメータに動的配列を渡す

Delphi TIPS

動的配列や長い文字列をFillCharに渡してゼロフィルする、てのは日常的に行われる処理で、 FillChar(HogeArr[0], HOGE_LENGTH, 0); // HogeArr: array of Byte; FillChar(HogeStr[1], HOGE_LENGTH, 0); // HogeStr: string; というのがよく目にする記述だけ…