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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货