Ах, что-то с памятью моей стало (Delphi 7)

[alxd]

Строю дерево каталогов в компоненте TreeView. Все отлично, но при выполнении построения память, занимаемая приложением возрастает в 2-3!!! раза. Как с этим бороться, подскажите?

procedure TfrmSettings.FindBase(Path: String; Parent: TTreeNode);
var
  NewNode: TTreeNode;
  SearchRec:TSearchRec;
  FindRes:Integer;
  FileName: String;
begin
  FindRes := FindFirst(Path + '\*.*', faDirectory, SearchRec);
  while FindRes = 0 do begin
    Application.ProcessMessages;
    if ((SearchRec.Attr and faDirectory) = faDirectory) and ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then begin
      FindRes := FindNext(SearchRec);
      continue;
    end;
    if ((SearchRec.Attr and faDirectory) = faDirectory) then begin
        NewNode := TreeGroup.Items.AddChild(Parent, SearchRec.Name);
        NewNode.ImageIndex := 7;
        NewNode.SelectedIndex := 8;

        FindBase(Path + SearchRec.Name + '\', NewNode);
    end;
    FindRes := FindNext(SearchRec);
  end;
end;

[SuperVisor]

А в чем, собственно, проблема? ))) Программа начинает строит дерево, подгружая проц и увеличивает количество записей дерева, выделяя под каждую запись память..

Application.ProcessMessages;

А вот это советую убрать... Больше дерево - дольше ждете...

[alxd]

Сообщение от SuperVisor

А в чем, собственно, проблема? ))) Программа начинает строит дерево, подгружая проц и увеличивает количество записей дерева, выделяя под каждую запись память..

Просто когда поиск не используется, а просто построится дерево (например восстанавливается из настроек программы), то так память не кушается.

(настройки у меня храняться в текстовом файле и при их чтении дерево строится так же как и при поиске)

Для примера: (<размер занимаемой памяти>)
1) Программа запустилась и восстановила дерево из настроек (5300кб)
2) Программа запустилась и дерево не заполнялось (5100кб)
3) Программа запустилась и дерево не заполнялось при запуске, а заполнялось поиском (18400кб)

[SuperVisor]

А если освобождать память, которую компилятор выделяет для

  NewNode: TTreeNode;
  SearchRec:TSearchRec;

У Вас ведь каждый уровень объявляет эти локальные переменные, а Delphi не очень-то любит за собой убирать, насколько я помню...

[alxd]

Сообщение от SuperVisor

А если освобождать память, которую компилятор выделяет для

  NewNode: TTreeNode;
  SearchRec:TSearchRec;

.

А как это сделать?

[quit]

Сообщение от alxd

А как это сделать?

try
FindRes := FindFirst(Path + '\*.*', faDirectory, SearchRec);
  while FindRes = 0 do begin
    Application.ProcessMessages;
    if ((SearchRec.Attr and faDirectory) = faDirectory) and ((SearchRec.Name = '.') or (SearchRec.Name = '..')) then begin
      FindRes := FindNext(SearchRec);
      continue;
    end;
    if ((SearchRec.Attr and faDirectory) = faDirectory) then begin
        NewNode := TreeGroup.Items.AddChild(Parent, SearchRec.Name);
        NewNode.ImageIndex := 7;
        NewNode.SelectedIndex := 8;

        FindBase(Path + SearchRec.Name + '\', NewNode);
    end;
    FindRes := FindNext(SearchRec);
  end;
finally
  FindClose(SearchRec);
end;

[alxd]

Спасибо! Теперь лучше!

[russian-stalker]

И ещё желательно:

freeandnil(newnode);