Что забирает память?

[trafbite]

Всем привет.

Вот код. Приложение в цикле качает страничку и парсит из нее нужные данные. После первого прохождения цикла приложение берет около 170Мб оперативки. С каждым следующим прохождением забирает еще по 10-50Мб. Подскажите, что именно берет память?

...
Procedure thr.Delay(Ms: Longint);
Var
  TheTime: LongInt;
Begin
  TheTime:=GetTickCount + Ms;
While GetTickCount < TheTime Do
  sleep(1);
End;
...

procedure thr.Execute;
var
  i,j,r,k,da,zz:integer;
  RegExp: TRegExpr;
  filelist, templist, list: tstringlist;
  http : THTTPSend;
  F: TextFile;
begin
synchronize(load);

count:=0;
zz:=0;
while zz<100 do begin
inc(count);

  http := THTTPSend.Create;
  http.Protocol := '1.1';
  http.Clear;
  http.HTTPMethod('GET', 'http://someurl.com');
    templist:=tstringlist.Create;
    templist.Text := ReadStrFromStream(http.Document, http.Document.Size);
  http.Free;

    for i:=0 to queries.Count-1 do begin
    RegExp := TRegExpr.Create;
    RegExp.Expression := '"(.*?)"';
    row:=i+1;
      znach:=0;
      for j:=templist.Count-1 downto 0 do begin
        if pos(queries[i],templist[j])<>0 then begin
          if RegExp.Exec(templist[j]) then begin
            AssignFile(F, ExtractFilePath(Application.ExeName)+queries[i]+'.txt');
            if FileExists(ExtractFilePath(Application.ExeName)+queries[i]+'.txt') then
              Append(F)
            else
              Rewrite(F);
            WriteLn(F, regexp.Match[1]);
            inc(znach);
            CloseFile(F);
          end;
          templist.Delete(j);
        end;
      end;
      synchronize(upload);
    regexp.Free;
    end;
  synchronize(upload1);
  templist.Free;

  delay(msec);
  inc(zz);
end;

И еще нубский вопрос про TStringList: если я уже сделал List.Free, а потом мне нужно еще раз воспользоваться списком, то мне его нужно повторно создавать List:=TStringList.Create или создать можно один раз, а потом сколько угодно раз делать List.Free, очищаяя его? Или для очистки лучше использовать List.Clear?

[Человек_Борща]

Не вижу секций Try finally...

[trafbite]

Ок, немного поправил код:

         try
            if FileExists(ExtractFilePath(Application.ExeName)+queries[i]+'.txt') then
              Append(F)
            else
              Rewrite(F);
            WriteLn(F, regexp.Match[1]);
            inc(znach);
            CloseFile(F);
         finally
         end;

[Человек_Борща]

CloseFile надо в Finally закрывать, ровно как и освобождение любых объектов/ресурсов.

var
 Obj:Tobject;
begin
 Obj:=TObject:=Create;
 try
    {Work with Obj}
  finally
    FreeAndNil(Obj);
  end;
end;

[trafbite]

while zz<100 do begin
inc(count);

  http := THTTPSend.Create;
  http.Protocol := '1.1';
  http.Clear;
  templist:=tstringlist.Create;

  try
    http.HTTPMethod('GET', 'http://someurl.com');
    templist.Text := ReadStrFromStream(http.Document, http.Document.Size);
  finally
    http.Free;
  end;

  RegExp := TRegExpr.Create;
  RegExp.Expression := '"(.*?)"';
  try

    for i:=0 to queries.Count-1 do begin
    row:=i+1;
      znach:=0;
      for j:=templist.Count-1 downto 0 do begin
        if pos(queries[i],templist[j])<>0 then begin
          if RegExp.Exec(templist[j]) then begin
            try
              AssignFile(F, ExtractFilePath(Application.ExeName)+queries[i]+'.txt');
              if FileExists(ExtractFilePath(Application.ExeName)+queries[i]+'.txt') then
                Append(F)
              else
                Rewrite(F);
              WriteLn(F, regexp.Match[1]);
              inc(znach);
            finally
              CloseFile(F);
            end;
          end;
          templist.Delete(j);
        end;
      end;
      synchronize(upload);
    end;

    synchronize(upload1);

  finally
    regexp.Free;
    templist.Free;
  end;



  delay(msec);
  inc(zz);
end;

Ок, спасибо за подсказку
Но все равно после каждого прохода цикла программа забирает еще кусок памяти (т.е. ничего не изменилось). Кто подскажет что берет?

[Человек_Борща]

Тупо:
ставим бряк и смотрим после какой команды уеличивается память.

[trafbite]

Да нет, тут не так.
Тут после первого прохода память на приложение 170Мб. Потом, во время загрузки страницы в память и в templist, на приложение память уже примерно 250Мб. А вот потом после высвобождения и закрывания память уже в исходные 170Мб не выходит, а получается 178Мб примерно. После третьего прохода 185Мб, ну и т.д.

[Пепел Феникса]

это нормально.
если оно стабильно не растет.

[trafbite]

Дак ведь растет Ну в том смысле, что после каждого прохода память, выделенная на приложение увеличивается. Т.е. к примеру после 10 проходов смотрю диспетчером: 240Мб, через 20 проходов 320Мб.

[trafbite]

Хотя нет, подождал побольше проходов - память то забирается, то высвобождается. Закономерности не заметил, решил забить