函数
procedure TfrmMain.UpdateLayerByRecieve(address:integer;sGroupNo,sAddress:string;iFlag:boolean);
var
UpdateLayer:MapXLib_TLB.Layer;
pnt:MapXLib_TLB.Point;
rvs,rvs1:MapXLib_TLB.RowValues;
rv1,rv2:MapXLib_TLB.RowValue;
begin
//定义变量
//pnt:=CoPoint.Create;
rv1:=CoRowValue.Create;
rv2:=CoRowValue.Create;
rvs:=CoRowValues.Create;
rvs1:=CoRowValues.Create;
.
.
end;
在Timer中运行时,发现使用的内存不释放,请问该如何释放内存?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货