PHP DM Gate v0.9 » sqlite отловить database is locked

eh (23.11.17 08:42) [0]

Добрый день!
Помогите, пожалуйста, отловить исключение.

Использую Delphi XE6 (TFDQuery) и Sqlite. Во время записи данных в БД надо обработать исключение database is locked.
Делаю это так:

try
FDQuery.Execute;
except
on E: Exception do
if StrPos(PChar(E.Message), 'database is locked') <> nil then
//
else
//
end;

Работает. Но чувствую, что не правильно так делать.
Как правильно обработать подобное исключение?

<Цитата>
Игорь Шевченко © (23.11.17 10:34) [1]

> Как правильно обработать подобное исключение?

Во-первых, у исключения есть класс, стоит ловить исключения только нужного класса. Во-вторых использовать Pos вместо StrPos :)

<Цитата>
eh (23.11.17 11:40) [2]

Спасибо, за помощь! :)

<Цитата>