-
K-1000 © (16.04.18 21:40) [0]Код выкидывает AV.
procedure ClearStates();
var
i: LongInt;
State: TObject;
begin
for i:= FListStates.Count - 1 downto 0 do
begin
State:= TObject(FListStates[i]);
FreeAndNil(State);
end;
FListStates.Clear();
end;
-
KilkennyCat © (16.04.18 21:51) [1]сначала надо научиться создавать вопросы в соответствующей ветке.
затем прочитать справку про то, чем пользуешься.
если читать внимательно, очень внимательно, прям вот всю про свойства, то наверняка попадется свойство, определенное значение которого при удалении TObjectList удаляет его элементы, вследствие чего сей циклfor i:= FListStates.Count - 1 downto 0 do
begin
State:= TObject(FListStates[i]);
FreeAndNil(State);
end;
становится несколько бессмысленным.
ссылка на справку: http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/!!MEMBERTYPE_Properties_Generics_Collections_TObjectList.html -
Игорь Шевченко © (16.04.18 22:39) [2]Хочу обратить внимание автора ветки, что на сайте кроме конференции "Прочее" есть еще и другие. Они тоже посещаются.
из http://www.delphimaster.ru/forums.shtml#rule
"Пожалуйста, старайтесь, чтобы Ваши сообщения соответствовали тематике Форума. "