100分回报，急！急！急！VC＋＋语句用DELPHI如何表示

Question

type
{类型定义}
  tdd = record
    变量A: 类型A;
　  变量B: 类型B;
  end;{过程定义}
procedure GetBb(var bb: tdd);
beginend;{调用}
procedure ......
var
  bb: tdd;
begin
  ggetBb(bb);
end;
　　 

Answer 1

type
  Taa=record
    begin
      变量A:类型A;
       .......
    end;
    
function GET_BB(bb:Taa):Integer; 直接调用就行，

Answer 2

taxi(游少爷)的类型定义不对，c中的union在delphi应如下
type
{类型定义}
  tdd = record
    case integer of
      0 :变量A: 类型A;
　    1 :变量B: 类型B;
    end;
  end;