- Код: Выделить всё
- myform=class...
 private
 MyIni,SLModules,SLQuestions,SLAnswers:TStringList;
 ...
 procedure myform.OnCreate
 ...
 MyIni:=TStringList.Create;
 SLModules:=TStringList.Create;
 SLQuestions:=TStringList.Create;
 SLAnswers:=TStringList.Create;
С MyIni идет интенсивная работа, SLModules несколько раз опрашивается на предмет count. SLQuestions и SLAnswers пока никак не используются.
Собираю с heaptrc. После завершения программы ругается на три неосвобожденных блока по 50 байт, давая номера двух последних строк, где (SLQuestions|SLAnswers):=TStringList.create. Чем загажен третий блок не говорит.
Отключаю две этих строчки - всё нормально, но мне нужны будут эти листы.
Чтение SLQuestions.count и SLAnswers.count ничего не меняет. Размещение декларации в самом модуле, вне описания формы, тоже никак не влияет.
Мне пора в психушку?



