Переход к строке

[panda88]

Хай! В таблице BDE существует колонка 'code'. В колонке около 1000 записей (чисел). Как, введя в эдит1, искомое число перейти к соответствующей строке таблицы?

[mzuko]

procedure TForm1.Button1Click(Sender: TObject);
var cn: string;
begin
  cn := Edit1.Text;
  if cn <> '' then If BookTable.Locate('code', cn, []) then
    else ShowMessage('Запись не найдена');
end;

у меня так только сложнее работает, там треугольничек показывается

[Grag]

Table.RecNo:=StrToInt(Edit.Text);