T
todennis
Unregistered / Unconfirmed
GUEST, unregistred user!
请问对如下数组如何进行释放?nil不行。
var
den1,den3,fqf,dqq:string;
den5,i:integer;
cq:array[1..50]of integer;
rq:array[1..4]of integer;
begin
DataModule2.table7.first;
i:=0;
while not DataModule2.table7.eof do
begin
i:=i+1;
.......
.......
while not DataModule2.table8.eof do
begin
.....
.....
cq:=den5+cq;
end;
......
......
fqf:='1';
dqq:=datetostr(DataModule2.table9['sdate']);
showmessage(dqq);
end;
end;
end;
var
den1,den3,fqf,dqq:string;
den5,i:integer;
cq:array[1..50]of integer;
rq:array[1..4]of integer;
begin
DataModule2.table7.first;
i:=0;
while not DataModule2.table7.eof do
begin
i:=i+1;
.......
.......
while not DataModule2.table8.eof do
begin
.....
.....
cq:=den5+cq;
end;
......
......
fqf:='1';
dqq:=datetostr(DataModule2.table9['sdate']);
showmessage(dqq);
end;
end;
end;