0002778: Добавить обработку ошибок в подсистеме меток

SASGIS - SAS.Планета
View Issue Details

ID	Project	Category	View Status	Date Submitted	Last Update
0002778	SAS.Планета	Рефакторинг	public	01-08-2015 14:24	06-08-2015 06:20

Reporter	zed
Assigned To	zed
Priority	normal	Severity	minor	Reproducibility	have not tried
Status	resolved	Resolution	fixed
Platform		OS		OS Version
Product Version	141212
Target Version	150915	Fixed in Version	150915

Summary	0002778: Добавить обработку ошибок в подсистеме меток
Description	Сейчас обрабатываются ошибки, возникающие при создании БД меток (в TMarkSystemImplChangeable.OnInitialization), нужно сделать аналогичную обработку для всех методов подсистемы меток в TMarkDbByImpl и TMarkCategoryDbByImpl. Текущая обработка выглядит следующим образом: `var VErrorMsg: IMarkSystemErrorMsg; ... try // что-то там except on E: Exception do begin VErrorMsg := TMarkSystemErrorMsg.Create(E.ClassName + ': ' + E.Message); FErrorNotifierInternal.Notify(VErrorMsg); //ToDo: LogError end; end;` Чтобы не писать по 100500 раз один и тот же дублирующийся код, думаю нужно создать функцию, которая будет делать всё что нужно и передавать ей нотифаер и исключение. Или даже наверное можно как-то получить информацию об исключении прямо внутри функции, как это делает эврика.
Steps To Reproduce
Additional Information
Tags	No tags attached.
Relationships
Attached Files

Issue History
Date Modified	Username	Field	Change
01-08-2015 14:24	zed	New Issue
01-08-2015 14:24	zed	Status	new => assigned
01-08-2015 14:24	zed	Assigned To	=> zed
06-08-2015 06:20	zed	Status	assigned => resolved
06-08-2015 06:20	zed	Fixed in Version	=> 150915
06-08-2015 06:20	zed	Resolution	open => fixed

There are no notes attached to this issue.