配列をポインタにキャストして戻す方法はありますか？

Question

私は、列に文字列を表示するコンボボックスを描いたオーナーを持っています。何らかの理由で列指定をOnDrawItemイベントに渡すことができれば、描画ルーチンをコンボで共有することができます。これを行う自然な方法は、列幅の配列をComboBox.Tagプロパティに渡して、それを配列にキャストすることです。

私のように列配列を定義します。

const arrWidth :array[1..4] of integer = (100,100,100,70); 

とにTagプロパティを設定します。

ComboBox.Tag := integer(@arrWidth); 

、その後、OnDrawItemイベントで、配列に戻ってそれをキャスト：

Widths :array of integer; 
Widths := pointer(ComboBox.Tag); 

配列要素はきれいに見えますが、配列の長さはわかりません。あらゆる種類のランダムな値ではずっと長いようです。

私は動的配列を使用しようとしましたが、適切な列値を取得できませんでした。

Answer 1

キャストはタイプチェックシステム外に出るため危険です。それがあなたをここに連れてきました。問題はarray[1..4] of integerとarray of integerが同じタイプではないことです。あなたはその後、この

TWidthArray = array [1..4] of Integer; 
PWidthArray = ^TWidthArray; 

のような特殊タイプとしてあなたの配列を宣言する必要が

は、このようなあなたの一定の操作を行います。あなたはコンボボックスから列を抽出する必要がある場合

const 
    arrWidth: TWidthArray = (100,100,100,70); 

それを行います

Widths: TWidthArray; 
... 
Widths := PWidthArray(ComboBox.Tag)^; 

ダイナミックアレイの長さを使用する必要がある場合は、 dそれを反映するためにあなたの共通のタイプを変更する必要があります。ただし、にキャストするとTagにキャストするとダイナミックアレイの参照カウントをバイパスすることに注意してください。あなたがそのルートを降りる場合、あなたがしていることを本当に理解する必要があります。

最後の1つです。今まであなたが64ビットのため、このコードをコンパイルしたい場合には、このための行で失敗します：integer以来

ComboBox.Tag := integer(@arrWidth); 

は、32ビット・データ・タイプです。代わりにNativeIntを使用してください。これは、ポインタと同じ幅の整数です。タグに配列ポインタを格納伴わない

ComboBox.Tag := NativeInt(@arrWidth);