Предотвратить удаление из TTable?

[GOS]

Как мне кажется нужно что-то написать в обработчике BeforeDelete

Только вот что именно никак не пойму...
надо что-то типа Abort...

Подскажите пожалуйста!

[Eugie]

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

procedure TForm1.Table1BeforeDelete(DataSet: TDataSet);
begin
  if MessageDlg('Do you want to delete a record?', mtConfirmation, [mbYes, mbNo, mbCancel], 0) <> mrYes then
    Abort;
end;

[GOS]

Не воспринимает он Abort;

Пишет: [Error] DMUnit.pas(2027): Statement expected, but expression of type 'Integer' found

Что делать?

PS WINXP+Delphi7+TTable+Paradox

[Eugie]

Пишет: [Error] DMUnit.pas(2027): Statement expected, but expression of type 'Integer' found

Странно. А что у тебя до и после Abort?

[GOS]

Там код для реализации бизнес правил, только дело совсем не в нём

Я попробовал оставить вообще только

Begin

Abort;

End;

И таже ошибка

[GOS]

Моя лень - источник проблемм

Надо указать модуляь...

Begin
...
...
...
SysUtils.Abort;
End;

И все проблеммы!

[GOS]

Всмысле модуль(а не модуляь) )

[AiK]

GOS, в той же строке, где и твой ник расположен, имеется кнопка с надписью правка. Работает. Проверено.
СЗОТ.

[Naeel Maqsudov]

Моя лень - источник проблемм

Я бы сказал, что конфликт идентификаторов источник проблем!
Лучше правильно выбирать идентификаторы (не переопределяя по возможности идентификаторы видимые в данном модуле). И тогда квалификатор (название модуля, в данном случае) указывать не надо и можно лениться еще больше