كيف تمنع tadorecordset من التمرير؟

Question

أود منع التمرير من adorecordset باسينج في بعض الحالات.

على سبيل المثال ، سيكون من المناسب فعل شيء من هذا القبيل:

procedure TfrmMain.qryCenyBeforeScroll(DataSet: TDataSet);
begin
  if not (condition) then
    qryCeny.DoNotScroll;  //Just the idea
end;

كيف نفعل ذلك؟

Answer 1

يمكنك رفع استثناء ، على سبيل المثال:

if not (condition) then
  Abort;