"Пролечить" утечки памяти. TobjectList & Tobject.Хранение обьектов...

[GunSmoker]

Есть ли разница?

А ты сам как думаешь?

Вот этот:
Код:
+Leak: Type=TAppThread; Total size=164; Count=1
00649A16TheG.exe AppsListUnit.pas TApp Start 111[3]
0064AF45TheG.exe AppsListUnit.pas TAppsList Start 313[7]
0065249ATheG.exe MainUnit.pas TMainForm FormCreate 459[12]
004FD471TheG.exe Forms.pas TCustomFormDoCreate 2648[3]
004FD0E1TheG.exe Forms.pas TCustomFormAfterConstruction 2575[1]
Где:
Код:
procedure TApp.Start;
begin
if (AppThr = nil) then
begin
{
AppThr:TThread; описана в секции Private у TApp.
}
AppThr := TAppThread.Create(True);
AppThr.AppInfo := @AppInfo;
AppThr.OnTerminate := DoThreadTerminate;
AppThr.Resume;
Timer.Interval := AppInfo.AutoRestart * 1000 * 60;
Timer.Enabled := True;
AddStartEventToLOG(AppThr.AppInfo.L istName);
end;
end;

AppThread.Free не вызывается.

Как понимать это?
Код:
+Leak: Type=TIntConst; Total size=48; Count=3
0041F2F1TheG.exe classes.pas RegisterIntegerConsts 2368[1]
0048EFB5TheG.exe Graphics.pas Initialization 6911[15]
00407526TheG.exe SysInit.pas _InitExe 668[7]
0065566BTheG.exe TheG.dpr Initialization 119[0]

+Leak: Type=Data; Total size=64; Count=4
0042002ETheG.exe classes.pas TList SetCapacity 2928[5]
0041FD70TheG.exe classes.pas TList Grow 2841[8]
0041FB02TheG.exe classes.pas TList Add2754[3]
00420689TheG.exe classes.pas TThreadListAdd3115[5]
0041F2FDTheG.exe classes.pas RegisterIntegerConsts 2368[1]
0048EFB5TheG.exe Graphics.pas Initialization 6911[15]

+Leak: Type=TRegGroup; Total size=100; Count=1
0041EC94TheG.exe classes.pas TRegGroups StartGroup 2059[6]
0041F13FTheG.exe classes.pas StartClassGroup 2262[3]
00496D04TheG.exe Dialogs.pas Initialization 2261[2]
00407526TheG.exe SysInit.pas _InitExe 668[7]
0065566BTheG.exe TheG.dpr Initialization 119[0]

+Leak: Type=Data; Total size=48; Count=1
0042002ETheG.exe classes.pas TList SetCapacity 2928[5]
0041FD70TheG.exe classes.pas TList Grow 2841[8]
0041FB02TheG.exe classes.pas TList Add 2754[3]
0041E345TheG.exe classes.pas TRegGroup AddClass 1733[1]
0041EAECTheG.exe classes.pas TRegGroups GroupWith 1989[3]
0041F197TheG.exe classes.pas GroupDescendentsWith 2272[3]

+Leak: Type=TList; Total size=16; Count=1
0041F4FBTheG.exe classes.pas RegisterFindGlobalComponentProc 2461[2]
00507E20TheG.exe Forms.pas Initialization 7683[3]
00407526TheG.exe SysInit.pas _InitExe 668[7]
0065566BTheG.exe TheG.dpr Initialization 119[0]
7C90DCB8ntdll.dll ZwSetInformationThread

+Leak: Type=TCriticalSection; Total size=28; Count=1
005FD749TheG.exe IdComponent.pas Initialization 172[1]
00407526TheG.exe SysInit.pas _InitExe 668[7]
0065566BTheG.exe TheG.dpr Initialization 119[0]
7C90DCB8ntdll.dll ZwSetInformationThread

+Leak: Type=Data; Total size=16; Count=1
0040BECCTheG.exe sysutils.pas AllocMem 3382[1]
004FCF76TheG.exe Forms.pas TCustomFormCreate 2554[1]

+Leak: Type=Data; Total size=36; Count=2
00405038TheG.exe
7C91045Dntdll.dll RtlReleasePebLock

Сильно похоже, что утечки памяти проверяются до финализации модуля Classes. Проверяй порядок в uses.

Ещё:
Код:
+Leak: Type=Data; Total size=20; Count=1
00405038TheG.exe
0040D3FFTheG.exe madDisAsm.pas COpcodeFlags
0062534DTheG.exe AppThreadUnit.pas TAppThread Execute 165[46]

+Leak: Type=Data; Total size=34; Count=1
00405038TheG.exe
00625370TheG.exe AppThreadUnit.pasTAppThread Execute 166[48]
Код:
Код:
s := ExtractFilePath(AppInfo.FileExe); //165 строка
s2 := '"' + AppInfo.FileExe + '" ' + AppInfo.RunParams; //166 строка
prc := CreateProcess(
PChar(AppInfo.FileExe), // LPCTSTR lpApplicationName,
PChar(s2),
nil,
nil,
False,
GetPriority(AppInfo.CPUPriority),
nil,
PChar(s),
SI,
PInfo);

Проблема не в этом месте. Не забывай, отчёт об утечке памяти никогда не указывает на проблему.

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

Сильно похоже, что утечки памяти проверяются до финализации модуля Classes. Проверяй порядок в uses.

И каким по счёту этот модуль должен стоять?
мб есть где-то по этому сабжу литература?

[GunSmoker]

Сообщение от Человек_Борща

И каким по счёту этот модуль должен стоять?
мб есть где-то по этому сабжу литература?

Документация на утилиты утечки памяти.

Модуль, который проверяет на утечки (FastMM4, EMemLeaks и т.п.), должен инициализироваться первым и финализироваться последним - иначе он пропустит то, что было сделано до него, и сообщит об утечках, которые на самом деле освобождаются, но после него.

Про порядок инициализации модулей можно почитать в справке Delphi.

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

GunSmoker, не стандартный вопрос, как правильно передавать заполненную структуру Record куда-либо?

И зачем делать так:

type
   PmyRec=^TmyRec;
  TmyPec= record
  {smth}
 end;

Сейчас я где-то указываю так:

private
//something
public
rec:TmyRec;
end;

и передаю туда вот так:

var
 r:TmyRec;
begin
Object.Rec:=@r;
end;

Для чего:

type
   PmyRec=^TmyRec;
  TmyPec= record
  {smth}
 end;

и как его использовать?

[Johnson]

В некоторых кодах, видел вызов:
Код:

inherited Create;

и подобные им. Есть ли разница?

Если твой конструктор называется так же, и нет необходимости конкретно указывать на конструктор - то разницы ни какой...