التعليمة setkey و gotokey هل لها بديل على ADOTABLE

[ferrero]

استعمل Locate أفضل وأئمن
بارك الله فيك أخي
مشكلتي لم أفهم التعليمة setkey و gotokey

---

طرق البحث المفهرسة:
EditKey - FindKey - FindNearest - GotoKey - GotoNearest - SetKey
SetKey : تقوم بمسح محتويات المخزن المؤقت لمفتاح البحث وتمكين حالة dsSetKey للجدول بالسماح للتطبيق بتحديد معايير جديدة قبل إجراء البحث.
GotoKey : البحث عن أول سجل لمجموعة بيانات تطابق تمامًا معايير البحث ويضع المؤشر عليها إذا عثر عليها.

بالنسبة لمثالك مثلا:
var ref: Integer;
...

ref := Table3.FieldByName('ref_prod').AsInteger;
With Table4 do
Begin
  SetKey;
  FieldByName('reference').AsInteger := ref;

// GotoKey البحث بواسطة

  If GotoKey then
    ...
   else
     ...

// FindKey البحث بواسطة

  If FindKey([ref]) then
       ...
   else
     ...

// GotoNearest/FindNearest  البحث بواسطة

  FindNearest([ref]);
  GotoNearest;
end;