（伝統的な）レコードのフィールドにアクセスする

Question

私は伝統的なレコードの配列を持っています。

レコードの開始、フィールドのオフセットおよびフィールドのタイプのアドレスを知っているとき、N番目のレコードのフィールドにアクセスするにはどうすればよいですか？例えば、 。私は予想通り

type 
Tstring = string[20]; 
TRecord = packed record 
    aInteger : integer; 
    aDouble : double; 
    aString : Tstring ; 
    bString : string; 
end; 

var 
aArray : array[0..N] of Trecord; 
p : pointer; 

.... 
p := pointer(cardinal(aArray[5])+12); // 12 = offset of field "aString" 
writeln(Tstring(p^); 

のように...

これは動作しません。私が間違っているところはどうか？

Answer 1

私は

を期待通り

は、私はあなたがそれを動作させるための試みの間に、コピーした投稿したものをコード実現が、動作しません 次回、ください郵便番号、あなたの後に」構文エラーを解決しました。また、どうすればが動作しないのかを含めてください。、デバッグを依頼するだけではありません。

私は型エラーを解決したので、コードが機能するようになりましたが、それでも非常に毛深い

十分わめき散らします。

p := pointer(cardinal(@aArray[5])+12); // 12 = offset of field "aString" 
writeln(Tstring(p^)); 

は基本的には、算術演算対応のCardinalタイプにキャストする前にaArrayのアドレスを取るのを忘れていました。

これは、型キャスティングが安全でないと考えた理由です。タイプエラーは他のタイプキャストの後ろに隠されていました。