TDataSet проблема с удалением записей.

[Kemper]

И так у меня проект весит на sqlite. Компоненты для доступа к нему стандартный sqlitelaz3. Есть две таблицы. При удалении записи из главной вылетает ошибка, но она вылетает лишь тогда когда есть записи в дочерней таблице. Если в главное таблице запись не связывать с дочерними(то есть мы не вводили данные в дочерную таблицу) или если уже были записи при открытии базы, то в таком случае все проходит гладко.

Код: Выделить всё

begin
   if (test_connect_database = false) then
      ShowMessage('База данных не подключена.' + #13 + 'Подключите базу данных.')
   else
      begin
         buttonSelected := MessageDlg('Вы точно хотите удалить счет?',mtCustom, [mbNo,mbYes], 0);
         if (buttonSelected = mrYes) then
            if Account_Dataset.RecordCount > 0 then
               Account_Dataset.Delete;
      end;
end;


Оговорюсь, что я использую DatasetBeforeDelete для того чтобы перед удалением главной записи удалить все записи из дочерней таблицы.
Ошибка вылетает на Account_Dataset.Delete;.

Код: Выделить всё

'External: SIGSEGV'.

Честно говоря ни как не могу понять в чем ошибка. Бьюсь уже целый день. "Бил" уже отладчиком, единственное что нашел

Код: Выделить всё

TFORM_SIMPLE_BUDGET__SPEEDBUTTON_DELETE_ACCOUNTCLICK(0xb7006140, <error reading variable>) at unit_base.pas:134

Linux 32. Lazarus 0.9.31 fpc 2.5.1

Добавлено спустя 55 минут 54 секунды:
Попробовал реализовать try except end; для того чтобы проверить на исключение. Прошел по шагам и как результат он даже до except не доходит, падает на Account_Dataset.Delete.

[Kemper]

Не ужели ни кто не знает? Вообще что ли идей нет?

[Padre_Mortius]

Не ужели ни кто не знает? Вообще что ли идей нет?

А как вы думете по этим данным можно что-либо толковое сказать по вашей проблеме?

На данный момент есть только куча вопросов. Как связаны таблицы? Каким запросом создавались таблицы? Использовались ли FK при создании таблиц?

В данном случае будет лучше либо выложить ваш проект с ошибкой, либо воспроизвести данную ошибку в новом проекте.

[root!]

'External: SIGSEGV'.
это вылетает обычно если невозможно к какому нибудь объекту обратиться. К примеру если пытаться обратиться к едиту не созданной формы.
а так побольше кода бы. и еще попробуйте правда воспроизвести подобное в других проектах

[Kemet]

Как я понял проблема возникает только тогда, когда в форме редактирования мы добавляем записи в дочернюю таблицу, а потом пытаемся их удалить. Возникает вопрос а как мы их удаляем и закоммичены ли записи?