VPF::использование try..except - Форум программистов

NieL

Дата 22.4.2011, 11:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Код


function TMainForm.init_data(Data: Pointer;
 Size: Cardinal): Bool;
begin
 Flinked_data := TMemoryStreamEx.Create(Data, Size);
 try
   FLinker := TLinker.Create;
   try
     Result := FLinker.SetStaticFromMemory(Flinked_data.Memory, Flinked_data.Size,
       False);
   except
     FreeAndNil(FLinker);
     raise;
   end;
 except
   FreeAndNil(Flinked_data);
   raise;
 end;

end;

есть подозрение, что несовсем удачно использую try..except. Может правильнее сделать один общий try..except для Flinked_data и FLinker?

Объект FLinker напрямую привязан к стриму (пока стрим открыт можем работать с его содержимым через FLinker), FLinker будет использоваться несколькими методами класса-формы.

Это сообщение отредактировал(а) NieL - 22.4.2011, 11:17

MetalFan

Дата 22.4.2011, 11:25 (ссылка)

(голосов:1)

Загрузка ...

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

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

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

NieL, в данном случае лучше использовать try..finally
Тогда все будет грамотно.
Можно конечно сократить (убрать один try..finally), если на 100% уверены, что TLinker.Create никогда не вызовет исключение.
Но, по скольку никогда ни в чем на 100% уверенным быть нельзя, то лучше оставить так, как есть (в смысле кол-ва try..finally)

Это сообщение отредактировал(а) MetalFan - 22.4.2011, 11:25

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

There are always someone smarter than you...

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