بسم الله الرحمن الرحيم وصلى الله على سيدنا محمد وعلى آله وصحبه
بحث في الحقول المفهرسة فقط بطريقة مختلفة
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.EditKey;
Table1.FieldByName('Numero').AsString := '2';
Table1.GotoKey;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.SetKey;
Table1.FieldByName('Numero').AsString := Edit1.text; // Edit1.text = 2
Table1.GotoNearest;
end