Проблема с освобождением памяти

[Vyachek2010]

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

И что, по-твоему, в этом сообщении делать цикл? Именно это.



У тебя первый абзац противоречит второму. Либо ты удаляешь элементы TempList1 (aka InformationNode), либо нет. Ты уж как-то определись что тебе надо.



Та ты што? Прям физически?



Это бред. Рекомендую к изучению мат-часть.



Поскольку никакой связи между ними (на уровне выделения памяти, как ты подумал) не существует вовсе, то и разрывать попросту нечего. Поэтому достаточно только Dispose. Как я и указал здесь.



Кто-то здесь совсем не понимает, как выделяется память в программах. Читать.

Я могу скинуть тебе проект и ты посмотришь. если делать

procedure TForm1.btn7Click(Sender: TObject);
Var I: Integer;
InfromationGraphElement: PInfromationGraphElement;
begin
for I := 0 to TempList.Count - 1 do
Begin
InfromationGraphElement := TempList.Items[I];

Dispose(InfromationGraphElement);
End;

TempList.Free;
end;

то очищается только список TempList (т.е. удаляются адреса в этом списке) а сами объекты InfromationGraphElement не удаляются.
Dispose(InfromationGraphElement); не удаляется из памяти поскольку есть ссылка на InformationNod. если я удалю InformationNod, то после выполнения Dispose(InfromationGraphElement); память освободиться. Попробуй сам это сделать. текст всех структур приведен выше. Память не освобождается. Я не дурак и не впервый раз пишу программы, но здесь реально проблема. Давай я тебе вышлю проект и ты посмотришь.

[Vyachek2010]

procedure TForm1.btn7Click(Sender: TObject);
Var I, J : Integer;
InfromationGraphElement, TempInfromationGraphElement : PInfromationGraphElement;
InformationNode : PInformationNode;
InformArc : PInformArc;
InformationPrevGraphElement : PInformationPrevGraphElement;
Str :string;
begin
for I := 0 to TempList.Count - 1 do
Begin
InfromationGraphElement := TempList.Items[I];

//-----Если закомментарить то InfromationGraphElement не удаляется из памяти-------
InformationNode := InfromationGraphElement.Information Node;
InformationNode.ListElement.Free;
InformationNode.ListPins.Free;
Dispose(InformationNode);
//---------------------------------------------------------

Dispose(InfromationGraphElement);
End;
TempList.Free;
end;


Если создавать элементы InfromationGraphElement и после обработки их удалять, чот я и хочу, то я вижу только то, что у меня память растет и потом вылетает ошибка Out of Memory!!!! Видно только то что удаляются ячейкиTempList которые занимают по 4 байта каждая и все.

[Vyachek2010]

Сделал как ты говорил но память освободилась только после того как я свернул приложение. опять же смотрел по диспетчеру задач. В чем здесь дело?

[veniside]

В том, что диспетчер задач показывает не то, что вы ожидаете.

[Vyachek2010]

переделал с record на class и все стало нормально

PInfromationGraphElement = ^TInfromationGraphElement;
TInfromationGraphElement = record
IndexID: Integer;
TypeConstruction: Integer;
InformationNode: PInformationNode;
End;

TInfromationGraphElement = class
IndexID: Integer;
TypeConstruction: Integer;
InformationNode: PInformationNode;
End;

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

не удаляется из памяти поскольку есть ссылка на InformationNod.

вы не в Java или .NET где такая система есть.
тут программа делает то что вы написали.