Вверх ↑
Ответов: 2193
Рейтинг: 673
#1: 2018-08-14 00:50:11 ЛС | профиль | цитата
У меня вылетает ошибка при попытке записать в файл список иконок, если менеджер иконок пуст.

Add(MainForm,2953706,112,308)
{
Width=427
Height=316
Position=1
Point(onClose)
}
Add(WorkIconsManager,12324961,399,315)
{
IListFileName="icons"
IconsManager="myIcons"
Point(doLoadIList)
Point(doSaveIList)
}
Add(IconsManager,4808505,399,196)
{
Name="myIcons"
Icons=[]
}
Add(Button,8131368,266,329)
{
Left=190
Top=125
link(onClick,12324961:doSaveIList,[])
}
nesco, предлагаю добавить проверку на пустоту и изменить строку 280 в процедуре SaveIListToFile с:

   if Ilist = nil then Exit;
на:

   if (Ilist = nil) or (IList.Count = 0) then Exit;
карма: 10

0