d2010. Создал класс на основе Tlist. AV при сохранении в ini

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

Всем привет!

У меня проблема и я не доумеваю как её лечить...

Написал класс, наследник Tlist, но опция сохранения в ini не рабоает , немогу понять почему...:

type
  TErrorWindowsList = class(TList)

...

procedure TErrorWindowsList.Save;
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(myDir + ErrIni_File);
  ini.EraseSection(ErrIni_SectionName);
  try
    for i := 0 to Count - 1 do
    begin
      ini.WriteString(ErrIni_SectionName, IntToStr(i) + ErrIni_WindowTitle,
        Window[i].ErrorTitle);
      ini.WriteString(ErrIni_SectionName, IntToStr(i) + ErrIni_WindowText,
        Window[i].ErrorText);
      ini.WriteInteger(ErrIni_SectionName, IntToStr(i) + ErrIni_CheckingType,
        Window[i].ErrorChecktype);
    end;
  except
    ini.Free;
  end;
end;

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

[phomm]

F1 на EraseSection гласит : If a section cannot be removed, an exception is raised.
надо бы проверить, почему она не может ремувнуть секцию (особоенно её имя и существование в инишке), или пока отказаться от функционала ремувания, поглядите как без него будет

а ещё кстати, free не вызывается при стандартном ходе проги, будут утечки памяти

[Прик]

Интересная конструкция, однако.
Значит, если ошибки не произойдет, то объект "ini" так и останется болтаться в памяти.
finally вместо except здесь больше подойдет.
try указывают после создания объекта, а не после того как с ним какие-либо операции происходят.
Прежде чем удалять секцию, надо проверить существование файла, хотя бы.
Да и чего ее эту секцию удалять то. Какая в этом польза или корысть?

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

Учёл ваши советы.
Рузультат:
Access violation at address 00699309 in module 'HLR.exe'. Read of address 00000008.

procedure TErrorWindowsList.Save;
var
  i: Integer;
  ini: TIniFile;
begin
  ini := TIniFile.Create(myDir + ErrIni_File);
  try
  if ini.SectionExists(ErrIni_SectionName) then
  begin
  ini.EraseSection(ErrIni_SectionName);
  end;
    for i := 0 to Count-1 do    //Access violation at address 00699309 in module 'HLR.exe'. Read of address 00000008.
    begin
      ini.WriteString(ErrIni_SectionName, IntToStr(i) + ErrIni_WindowTitle,
        Window[i].ErrorTitle);
      ini.WriteString(ErrIni_SectionName, IntToStr(i) + ErrIni_WindowText,
        Window[i].ErrorText);
      ini.WriteInteger(ErrIni_SectionName, IntToStr(i) + ErrIni_CheckingType,
        Window[i].ErrorChecktype);
    end;
  finally
    ini.Free;
  end;
end;

Корысть? Перезапись секции... Обновление в соответсвии с данными в программе.

p.S. спасибо что указали где утечка памяти. Долго я над этим думал! И оказалось всё так банально try...except

[Прик]

Может быть дело не в иниФайле, а в самом классе.
Как тут определишь причину AV, если ничего не известно, кроме метода Save.

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

Проблему решил... оказывается не добавлял обьект в сам Tlist.