請問各位前輩們
我有一段delphi 想轉換 成vb.net
這段我很不明瞭要怎麼轉換 請幫忙...謝謝你們


[code delphi]
type Textraopcode=(eo_none,
eo_reg0,eo_reg1,eo_reg2,eo_reg3,eo_reg4,eo_reg5,eo_reg6,eo_reg7, // /digit
eo_reg, // /r
eo_cb,eo_cw,eo_cd,eo_cp,
eo_ib,eo_iw,eo_id,
eo_prb,eo_prw,eo_prd,
eo_pi
);
type tparam=(par_noparam,

par_1,
par_3,
par_al,
par_ax,
par_eax,
par_cl,
par_dx,
par_cs,
par_ds,
par_es,
par_ss,
par_fs,
par_gs,

par_r8,
par_r16,
par_r32,
par_mm,
par_xmm,
par_st,
par_st0,
par_sreg,
par_cr,
par_dr,

par_m8,
par_m16,
par_m32,
par_m64,
par_m80,
par_m128,
par_moffs8,
par_moffs16,
par_moffs32,

par_rm8,
par_rm16,
par_rm32,
par_r32_m16,
par_mm_m32,
par_mm_m64,
par_xmm_m32,
par_xmm_m64,
par_xmm_m128,

par_imm8,
par_imm16,
par_imm32,

par_rel8,
par_rel16,
par_rel32);

type topcode=record
mnemonic: string;
opcode1,opcode2: textraopcode;
paramtype1,paramtype2,paramtype3: tparam;
bytes:byte;
bt1,bt2,bt3: byte;
end;br />

const opcodecount=1036; const opcodes: array [1..opcodecount] of topcode =(
{ok} (mnemonic:'AAA';opcode1:eo_none;paramtype1:par_noparam;bytes:1;bt1:$37),
{ok} (mnemonic:'AAD';opcode1:eo_none;paramtype1:par_noparam;bytes:2;bt1:$d5;bt2:$0a),
[/code]
最後面的三行 我比較難去理解怎麼轉換 至於 type的 轉換 我是知道怎麼轉

例如 bytes:byte; > 轉成 vb.net 是 dim bytes as byte

編輯記錄

Textraopcode 及 tparam 使用 Enum
topcode 使用 Structure 宣告

opcodes 的宣告:
Private opcodes(0 To opcodecount - 1) As topcode

opcodes的給值

opcodes(0).mnemonic = "AAA"
opcodes(0).opcode1 = Textraopcode.eo_none
opcodes(0).paramtype1 = tparam.par_noparam
opcodes(0).bytes = 1
opcodes(0).bt1 = &H37

opcodes(1).mnemonic = "AAD"
opcodes(1).opcode1 = Textraopcode.eo_none
opcodes(1).paramtype1 = tparam.par_noparam
opcodes(1).bytes = 2
opcodes(1).bt1 = &HD5
opcodes(1).bt2 = &HA

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

實在太感謝了..
這問題我 自己困擾很久了
想了一些辦法都寫不成功...
是我自己的功力太弱了...
謝謝前輩