VPF::THashedStringList - проблема с освобождением

Skiminok

Дата 27.8.2007, 22:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

Всем привет.
Есть THashedStringList. В процессе работы проги с ним последовательно выполняются такие действия (здесь набранные мною условно):

Код


Sl:=THashedStringList.Create;
Sl.LoadFromFile('File.ini');

//потом тьма текста, в процессе которого только несколько раз вызывается Sl.IndexOf и кучу раз - Sl.Count
//потом один раз приходим к ситуации:
ind:=Sl.IndexOf(Str);
If ind=-1
  Then Ind:=Sl.Add(Str);
//и дальше в таком же ключе...
if Assigned(Sl) then  Sl.SaveToFile('File.ini');
//ещё пошёл текст c IndexOf и Count... и в итоге:
if Assigned(Sl) then Sl.Free;

Компилируется нормально, вопросов не возникает. Проблема в том, что при попытке работы в момент освобождения (Sl.Free) прога вылетает, а среда выдаёт такой вот AV:
user posted image

Замена Free на Destroy не помогает.
Использую Turbo Delphi 2006 Explorer (Win32).
Очень надеюсь на помощь)

Это сообщение отредактировал(а) Skiminok - 27.8.2007, 22:21

MetalFan

Дата 27.8.2007, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Skiminok @ 27.8.2007, 22:12

)

if Assigned(Sl) then Sl.Free;

бессмысленная проверка

--------------------

There are always someone smarter than you...

Skiminok

Дата 27.8.2007, 22:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 5.4.2006
Где: Киев

Репутация: нет
Всего: нет

Спасибо, но разве это решает вопрос?

Snowy

Дата 27.8.2007, 23:20 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

По данному описанию не вижу никаких проблем.
Попробуй сделать демо-пример, дающий данную ошибку и запостить его тут.
В этом коде ошибок нет...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »