Как сделать сортировку (поиск) Delphi+Access

[Toska]

Народ! помогите написать сортировку или поиск, не знаю как это назвать. Допустим у меня в поле "Фамимлия" находятся много Ивановых, Петровых и т.д. и ввожу в TEdit букву "И" и все эти фамилии отфтльтровываются, дальше ввожу "Ив" и все фамилии начинающиеся на ИВ отфильтровываются. Как такое написать? Если можно, напишите код.
У меня есть такой
<code>
procedure TForm3.Edit1Change(Sender: TObject);
begin
if Length (Edit1.Text)>0 then
DataModule1.map2.Filtered:=true
else
DataModule1.map2.Filtered:=false;
DataModule1.map2.Filter:='Фамилия>' ''+Edit1.Text+'''';
end;
</code>
но он ищет не так как надо, а приближенные значения. А если написать ИВАНОВ то все эти фамилии исчезают.

[Aristarh Dark]

Лично я никогда не задаю свойство Filter, а использую событие OnFilterRecord. Вот кусок кода из программы, SpeedSearch - как раз тот Edit в который вводится текст:

procedure TReferenceForm.FilterRecord(DataSet: TDataSet; var Accept: Boolean);
//+-----------------------------------------------------------------------------
// Фильтрует справочник по полю быстрого доступа
//
// Aristarh Dark
//------------------------------------------------------------------------------
begin
  Accept:=pos(AnsiUpperCase(SpeedSearch.Text),AnsiUpperCase(DataSet.Fields[GridFindColumn].AsString))>0
end;

[Toska]

А где взять это событие OnFilterRecord

[Максим_Леонидович]

Я делал так:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  DatMod.ADOQuery1.Active:=false;
  DatMod.ADOQuery1.SQL.Clear;
  DatMod.ADOQuery1.SQL.Add('SELECT *');
  DatMod.ADOQuery1.SQL.Add('FROM pasport_data');
  DatMod.ADOQuery1.SQL.Add('WHERE Famil_p Like '''+Edit1.Text+'''+'''+Label1.Caption+'''');
  DatMod.ADOQuery1.SQL.Add('AND Name_p Like '''+Edit2.Text+'''+'''+Label1.Caption+'''');
  DatMod.ADOQuery1.SQL.Add('AND Otchestvo_p Like '''+Edit3.Text+'''+'''+Label1.Caption+'''');
  DatMod.ADOQuery1.Active:=true;
end;

В Label1 у меня хранится символ %
В Edit1,2,3 ищешь по фамилии или имени или отчеству.
согласен, что способ не самый лучший, да и зачем изобретать велосипед, когда уже он есть. Но пока мне легче извратиться и придумать что-то вроде выше изложенного, чем воспользоваться продвинутой, но не понятной пока FilterRecord
По крайней мере результат тот же.

[Roof]

нну символ % можно ведь посто добавить в запрос
Label1 тогда не нужен.

[Gorychev]

Почитайте тут

[Максим_Леонидович]

нну символ % можно ведь посто добавить в запрос
Label1 тогда не нужен.

просто изначально я не знал как вставить символ ' в текст фильтра. потом когда узнал, стал использовать не фильтр а СКЛ запрос. а код было лень переделывать, и я в Label1 вставил % ))))