type
{类型定义}
tdd = record
变量A: 类型A;
变量B: 类型B;
end;{过程定义}
procedure GetBb(var bb: tdd);
beginend;{调用}
procedure ......
var
bb: tdd;
begin
ggetBb(bb);
end;
{类型定义}
tdd = record
变量A: 类型A;
变量B: 类型B;
end;{过程定义}
procedure GetBb(var bb: tdd);
beginend;{调用}
procedure ......
var
bb: tdd;
begin
ggetBb(bb);
end;
Taa=record
begin
变量A:类型A;
.......
end;
function GET_BB(bb:Taa):Integer; 直接调用就行,
type
{类型定义}
tdd = record
case integer of
0 :变量A: 类型A;
1 :变量B: 类型B;
end;
end;