ما هو بديل ل set keyوfind key في adotable

[محمد عبد العزيز]

السلام عليكم
احد البدائل Locate

كود :

table3.first while not(table3.eof) do begin if Table4.Locate('reference’,Table3.fieldbyname(‘ref_prod’).AsString,[loCaseInsensitive]) then Begin Table4.edit; Table4.fieldbyname(‘qte_stock’).asfloat:=Table4.fi eldbyname(‘qte_stock’).asfloat- Table3.fieldbyname(‘qte_vente’).asfloat; Table4.post; End; Table3.next; End;