type
zjzlStruct = record
hbdm :char;
yhdm :array[0..10] of char;
yhzh :array[0..10] of char;
end;
...
function readzjzl(....):integer;
begin
....
end;
调用函数部分:
var
zjzl:array[0..10] of ^zjzlstruct;
begin
...
readzjzl('000001',10,zjzl,@retnum);end;
你试一下。 另外getmem()给结构分配内存,sizeof()得到结构内存,和c++差不多吧。
zjzlStruct = record
hbdm :char;
yhdm :array[0..10] of char;
yhzh :array[0..10] of char;
end;
...
function readzjzl(....):integer;
begin
....
end;
调用函数部分:
var
zjzl:array[0..10] of ^zjzlstruct;
begin
...
readzjzl('000001',10,zjzl,@retnum);end;
你试一下。 另外getmem()给结构分配内存,sizeof()得到结构内存,和c++差不多吧。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货