FindNearest

[artemavd]

Всем добрый вечер! . Возникла небольшая проблемка у меня, нужна ваша помощь. Я написал программу с БД. БД состоит, например, из двух полей: ID (+), LAST_NAME (A). Мне нужно по мере ввода букв фамилии в Edit, чтобы курсор перемещался на позицию, которая удовлетворяет поиску. Взял пример из справки по Delphi.

procedure TForm1.FormActivate(Sender: TObject);

begin
  Table1.DatabaseName := 'DBDemos';
  Table1.TableName := 'Customer.db';
  Table1.Active := True;
  Table1.IndexName := 'ByCompany';
end;

procedure TForm1.Edit1Change(Sender: TObject);

begin
    Table1.FindNearest([Edit1.Text]);
end;

Переделал под себя:

procedure TForm1.FormActivate(Sender: TObject);

begin
  Table1.DatabaseName := 'Nomera';
  Table1.TableName := 'nomera.db';
  Table1.Active := True;
  Table1.IndexName := 'ByCompany'; {???}
end;

procedure TForm1.Edit1Change(Sender: TObject);

begin
    Table1.FindNearest([Edit1.Text]);
end;

И возникло два вопроса:
1. Что мне написать в моем случае в строке, рядом с которой стоят вопросительные знаки?
2. Почему, когда я начинаю набирать фамилию искомую, то у меня вылазить ошибка: " 'Г' is not valid integer value for field 'ID' "? Вообщем-то смысл ошибки понятен, а когда я набираю какой-нибудь номер порядковый, то все ништяк переходит.
Как сделать, чтобы я мог фамилию вводить а не номер?

[soleil@mmc]

замени это

Table1.IndexName := 'ByCompany'; {???}

на это

Table1.IndexName := 'LAST_NAME';

[artemavd]

Выдается такая ошибка:

[_SERGEYX_]

Если мне не изменяет память, ...Nearest не работает с числовыми полями.
И вообще, если это не учебное задание, для поиска удобнее использовать sql-запрос

Select LAST_NAME from Customer where Upper(LAST_NAME) LIKE Upper("' + Edit1.Text +'%")

[Sparky]

if not (Table1.Locate('last_name',Edit1.Te xt,[loCaseInsensitive, loPartialKey])) and (Edit1.Text<>'') then
Label1.Caption:='Данное наименование отсутствует'
else Label1.Caption:='';
Принцип работы, если при изменении значения в edit выполняется locate то курсор переходит на ту запись, иначе записывает ошибку.

[Andrei]

А поле LAST_NAME у вас предварительно проиндексировано? Если нет - то проиндексируйте и подключайте этот индекс перед вызовом FindNearest.

[Sparky]

Зачем его индексировать?????

[Andrei]

Сообщение от Sparky

Зачем его индексировать?????

А как FindNearest будет искать ближайшее значение по вашему?

Сначала он выстроит таблицу по-порядку, в соответствии с индексом, а потом в таблице найдет ближайшее значение, соответствующее ключу. Только так.

[Sparky]

я сама неоднократно использовала данный код, без индексов, работает без проблем!!!

[Andrei]

А я всегда предварительно индексировал. Наверное, я перестраховщик.