VPF::Как освободить объект после использования?

oleg2s

Дата 12.11.2012, 11:44 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

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

Проверяю утечки памяти. Для этого вставил строку ReportMemoryLeaksOnShutdown := True;
После закрытия формы выводится сообщение:

An unexpected memory leak has occurred. The unexpected small block leaks are:
21 - 28 bytes: TMBCSEncoding x 1

Анализ кода показал, что это возникает из-за следующих строчек:

Код


procedure TForm1.FormCreate(Sender: TObject);
Var Encoding: TEncoding;

Begin
ReportMemoryLeaksOnShutdown := True;

Encoding := TEncoding.Create;
Encoding.GetEncoding(1251);
Encoding.Free;
Encoding := Nil;
End;

Как уничтожить объект Encoding?

Illusion Dolphin

Дата 12.11.2012, 12:02 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Подсказка в сырцах:

Код


class function TEncoding.GetEncoding(CodePage: Integer): TEncoding;
begin
  case CodePage of
    1200: Result := TUnicodeEncoding.Create;
    1201: Result := TBigEndianUnicodeEncoding.Create;
    CP_UTF7: Result := TUTF7Encoding.Create;
    CP_UTF8: Result := TUTF8Encoding.Create;
  else
    Result := TMBCSEncoding.Create(CodePage);
  end;
end;

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

oleg2s

Дата 12.11.2012, 12:28 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

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

Наверное для кого-то эта подсказка очевидна, но что делать, если нет?

Illusion Dolphin

Дата 12.11.2012, 12:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

TEncoding.GetEncoding(1251); возвращает объект кодировки. Сам объект создавать вручную (TEncoding.Create;) не надо. Те. что-то вроде:

Код


Encoding := TEncoding.GetEncoding(1251);
...
FreeAndNil(Encoding);

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

oleg2s

Дата 12.11.2012, 13:48 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 12.5.2012

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

Результат тот-же. :(

Добавлено через 3 минуты и 59 секунд
Прошу прощения!
Все получилось, большое спасибо!

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