Создание/уничтожение объектов

[nimf]

Товарищи специалисты, подскажите пожалуйста. Как мне отслеживать какие объекты созданные динамически я не удаляю. Может существует какая нибудь прога позволяющая этоотслеживать

[Ins]

Поиск в гугле по слову MemProof

[SKYDOS]

просто используй код после того, как использованная кнопка тебе не нужна...
ну что-то вроде этого...
Button1.Free;
или
Button1.Destroy;
ну вот)

[mihali4]

Как мне отслеживать какие объекты созданные динамически я не удаляю. Может существует какая нибудь прога позволяющая это отслеживать

Предложение такое.
Кидаете на форму ListBox и при создании объекта заносите туда новой строкой имя созданного объекта, а при уничтожении его - ищете соответствующую строку и удаляете ее.
При выходе их программы проверяете количество строк в ListBox-е и, если оно больше нуля, выводите либо предупреждение, либо сам список ListBox.
Я так понимаю, вам это нужно для проверки своего кода на завершенность и с целью предотвращения утечки ресурсов?

[mutabor]

А какие объекты обязательно, и какие необязательно удалять.
Глобальные понятно не обязательно, а вот функции, например такая

function DoSmth: TBitmap;
begin
Result:=TBitmap.Create;
//и так далее
end;

Утечки не будет с ней?

[alexBlack]

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

Утечки не будет с ней?

стараюсь придерживаться простого правила - объекты удаляются там-же, где и создаются:

B:=TBitMap.Create;
try
 ...
finally
   B.free;
end;

Если это невозможно из-за длительного времени жизни, то создание и удаление должно выполняться одним владельцем. Например для объектов, соответственно в констракторе и дестракторе.

Распределение памяти и возврат функциями указателей лучше не допускать. В этом случае, особенно, если функция будет использоваться неоднократно, непонятно создает она этот объект или возвращает ссылку на ранее созданный. И нужно ли его освободить после использования.

Безопасней создать отдельный класс. (В терминах шаблонов - фабрику объектов). У этого класса будет метод doSmth, который вернет TBitMap, но владельцем останется фабрика и он будет уничтожен при уничтожении фабрики. Т.е. принцип останется:

F := TFabric.Create;
try
  B := F.doSmth;
  ... 
  // B не уничтожаем, т.к. он принадлежит фабрике
finally
   F.free;
end;

Или можно сделать метод для обработки уже существующего объекта. Таким образом создание и уничтожение объекта отдается тому, кто будет использовать этот метод

procedure doSmth(B:TBitMap);
begin
 ...
end;

[mutabor]

Распределение памяти и возврат функциями указателей лучше не допускать. В этом случае, особенно, если функция будет использоваться неоднократно, непонятно создает она этот объект или возвращает ссылку на ранее созданный. И нужно ли его освободить после использования.

Так какой же окончательный ответ? Можно конечно на практике проверить, но интересно в теории, я так понял из вашего ответа что будет утечка?
Из-за этих сомнений я обычно и использую процедуры с передачей в них объекта "со стороны".

[alexBlack]

Если так:

B := doSmth;
...
B.Free

то, конечно утечки не будет. Я это к тому, что посмотрев на этот код нужно обязательно посмотреть на код в посте #5. То есть неочевидно, что требуется B.Free, а значит о нем можно забыть.

Так какой же окончательный ответ?

Сам возврат указателя не приводит к утечке памяти. Проблема потенциальная.

Компилятор реализует вызов B := doSmth как передачу var-параметра - doSmth(var B).
Это можно увидеть на примере вот-такого кода. Как думаете, что появится на форме ?:

function doSmth : AnsiString;
begin
   result := result + 'xxx';
end;

procedure TForm1.FormCreate(Sender: TObject);
var S:AnsiString;
begin
   S := 'test ';
   S := doSmth;
   label1.Caption := S;
end;

Из-за этих сомнений я обычно и использую процедуры с передачей в них объекта "со стороны".

И правильно.

[mutabor]

Как думаете, что появится на форме ?:

Думал это 'xxx'... а появилось 'test xxx'
з.ы. Пошел заполнять пробелы в матчасти =)

[alexBlack]

Этот код эквивалентен такому вызову:

procedure doSmth(var result: AnsiString);   
begin  
   result := result + 'xxx';   
end;   
  
procedure TForm1.FormCreate(Sender: TObject);   
var S:AnsiString;   
begin  
   S := 'test ';   
   doSmth(S);   
   label1.Caption := S;   
end;

Для простых типов это не проходит, т.к. компилятор делает инициализацию result. Для AnsiString инициализации не делается. Отсюда такой эффект. Пример, конечно, надуманный.