- Код: Выделить всё
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 ничего не меняет. Размещение декларации в самом модуле, вне описания формы, тоже никак не влияет.
Мне пора в психушку?