if Assigned(acount) then
begin
for k := 0 to i do
acount[k+1] := bcount[k+1];
end;
n := length(acount); for k := 0 to i do
begin
for c := 0 to n do
begin
if acount[n] <> bcount[i] then
begin
acount[n+1] := bcount[i];
n := n+1;
end;
end;
bcount := nil;
end;
这里的n代表数组acount中有多少个数
我怎么才能测试出来啊??
拜托大家了
我急用!!!!!!!!!!
在线等
begin
for k := 0 to i do
acount[k+1] := bcount[k+1];
end;
n := length(acount); for k := 0 to i do
begin
for c := 0 to n do
begin
if acount[n] <> bcount[i] then
begin
acount[n+1] := bcount[i];
n := n+1;
end;
end;
bcount := nil;
end;
这里的n代表数组acount中有多少个数
我怎么才能测试出来啊??
拜托大家了
我急用!!!!!!!!!!
在线等
Count = High(数组名) - Low(数组名) + 1
是不是用nil if Aarray <> nil then
begin
end;