Как освободить память?

← →
Вика (2002-04-11 12:22) [4]

Anatoly, память на самом деле захватывается и еще как:

procedure TGazSvc.tCalcTimer(Sender: TObject);
var h, m, s, s1: word; t: TDateTime;
const inUse: boolean = false;
LastTime: TDateTime = 0;

procedure insAll;
var s: TMemoryStream;
begin
s := TMemoryStream.Create; try
nlsGazSrv.ParamList.SaveValuesToStream(s, false);
with CurVals do try Open;
Edit;
CurValsaTime.AsDateTime := t;
CurValsCurValues.LoadFromStream(s);
try Post; except
LogMessage("Post", EVENTLOG_INFORMATION_TYPE, 0, 5555);
end;
finally Close end;
finally s.Free end;
end;
Каждые 20 сек из вне в БД поступают значения параметров.

Как освободить память? Найти похожие ветки