[kiddan]

Подскажите пожалуйста при таком условии

Код:

if not Table1.Locate('GIC', Edit1.Text, [])
then ShowMessage('Такого номера ГИЦ нет')

всё ищет, но в поле 'GIC' бывают и пробелы например ' 1234 ', ' 1234' и естественно это число не находит. Подскажите как организовать поиск таких чисел без SQL запросов?

[Guaho]

Используйте функцию trim, она убирает пробелы. Вместо "Edit1.Text" пишите trim (Edit1.Text).
ПРАВКА: сори, ерунду написал не глядя, а удалить сообщение не могу. Trim нужно применять при вводе, чтоб не было записей с пробелами.
Попробуйте сделать, как тут: http://web-developments.ru/prikladno...h-delfi-delphi. Не знаю, какой механизм используете для работы с БД (в приведённом примере - ADO), так что не факт, что прокатит.
А вообще зря опасаетесь SQL. Очень простая штука на самом деле. И очень мощная по своим возможностям. Рано или поздно всё равно придётся его использовать.
Например, в данном случае нужно кинуть на форму компонент TADOQuery (или что-то другое, не знаю, какой движок Вы используете), обозвать его "q", указать в его параметрах данные для соединения с БД, а в обработчике Edit1.Change прописать:

Код:

  q.SQL.Clear;
  q.SQL.Add('SELECT * FROM Имя_таблицы');
  q.SQL.Add('WHERE GIC LIKE "%' + trim(Edit1.Text) + '%"';
  q.Active := true;

Примерно так.

[kiddan]

Подключение к базе FoxPro .dbf через BDE, задача обойтись без SQL запросов если это возможно. DataSource1, Table1, DBGrid1.

[Guaho]

Пробовали ту ссылку, что я привёл? Срабатывает?

[kiddan]

Да! Там с SQL запросами всё! (

[Guaho]

Хм... И это тоже?

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) > 0 then
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;
ADOTable1.Filtered:=true;
end
else ADOTable1.Filtered:=false;
end;

[kiddan]

Дык насколько я понял это фильтрация, а мне поиск нужен в Table1!!!

[kiddan]

Пользователь вводит номер в Edit и нажимает поиск (Button).

[Guaho]

Прошу прощения за свою невнимательность, в самом первом посте написано ведь - Locate, а я что-то в фильтрацию вцепился.
Попробуйте так:

Код:

if not Table1.Locate('GIC', Edit1.Text, [loPartialKey]) ...

[Alegun]

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

Пользователь вводит номер в Edit и нажимает поиск (Button).

Тогда придется вот так бегать по всем записям таблички

Код:

 with Table1 do
begin
 First;
 while (not Eof) and
       (not (Trim(FieldByName('GIC').AsString) = Edit1.Text)) do
 Next;
 if Eof then ShowMessage('Такого номера ГИЦ нет');
end;

[Guaho]

Тоже вариант, только до начала "пробега" желательно запомнить код записи, чтобы затем на неё вернуться. Или - что лучше - искать в дополнительном датасете, не подключенном к компонентам визуализации; так будет быстрее и удобнее.

[kiddan]

Спасибо всё работает!

[Guaho]

Что именно сработало - [loPartialKey] или перебор записей? (хотя перебор само собой должен прокатить, без вопросов).