Буквы Е и Ё. Контекстный поиск

[Lecter2009]

Помогите решить проблему, есть у меня программа, работает с БД Access, есть контекстный поиск (код ниже). Поиск ищет первую запись совпадающую с условием, потом по кнопке Enter продолжает поиск след. записи совпадающей с условием и т.д. Стоит задача сделать так чтобы буквы Е и Ё в поиске не различались, т.е. набрав фамилию "Щеголев" поиск должен найти запись с "Щёголев"....пока никак не дойду своим умом....

var
 FoundRec: Boolean;
 FndEdit: string;
 Fld_0: TField;
begin
FndEdit := AnsiLowerCase(txtKonSearch.Text);
FoundRec := False;
         begin 
           Fld_0 := DM.tbPhone.FieldByName('name');
           if txtKonSearch.Text <> '' then
           begin
             DM.dsMain.First;
             while not DM.dsMain.Eof do
             begin
               if Fld_0.IsNull then
               begin
                 DM.dsMain.Next;
                 Continue;
               end;
               if Pos(FndEdit, AnsiLowerCase(Fld_0.AsString)) > 0 then
               begin
                 FoundRec := True;
                 break;
               end;
               DM.dsMain.Next;
             end;

             if not FoundRec then
             begin
               DM.dsMain.First;
               Application.MessageBox(PChar('Абонент <' + txtKonSearch.Text +
                 '> не найден'), 'Информация', MB_OK + MB_ICONINFORMATION);
             end;
           end;

[soleil@mmc]

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

 if AnsiLowerCase(FndEdit) = 'е'
  or AnsiLowerCase(FndEdit) = 'ё' then
      if Pos('е', AnsiLowerCase(Fld_0.AsString)) > 0 
      or Pos('ё', AnsiLowerCase(Fld_0.AsString)) > 0 then
               begin
                 FoundRec := True;
                 break;
               end;
else
 if Pos(FndEdit, AnsiLowerCase(Fld_0.AsString)) > 0 then
               begin
                 FoundRec := True;
                 break;
               end;

[Lecter2009]

Спасибо поробую

Поробовал, теперь ничего не ищет кроме Е и Ё ))) Т.е. если ввести Щёголев - пишет не найден, ищет только если в строку поиска ввести буквы е или ё.....Условие не выполняется если введена какая-либо другая буква, не Е и не Ё...А мне надо чтобы можно было ввести слово (фамилию в моем случае) целиком или несколько начальных букв

Кстати насчет реализации....если подскажите как еще можно организовать контекстный поиск с функцией "Найти далее" - буду премного благодарен. Моих мозгов хватило на то что написано выше...))

[soleil@mmc]

чтобы код работал и с частью слова нужно подправить код
а я бы делал через скл-запрос, который выдаст все варианты по укаанному фильтру
и в запросе можно на лету заменить все ё на е

[Lecter2009]

Сообщение от soleil@mmc

чтобы код работал и с частью слова нужно подправить код
а я бы делал через скл-запрос, который выдаст все варианты по укаанному фильтру
и в запросе можно на лету заменить все ё на е

Спасибо за идею. Буду пробовать

[pu4koff]

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

Щёголёв
Щёголев
Щеголёв
Щеголев

Если могут, то двумя запросами с е и ё тут не отделаться, т.к. они охватят только записи: "Щёголёв" и "Щеголев", а остальные не будут найдены.
Как вариант тут завести дополнительное поле для поиска, в котором хранить фамилии с буквами е, т.е. в базе на каждого абонента будет фамилия для отображения пользователю (с е и ё вперемешку) и фамилия для поиска (никаких ё, только е). Заставлять пользователей вводить фамилию в двух вариантах естественно не нужно и можно вынести заполнение адаптированной под поиск фамилии в триггер, например.
Тогда поиск сведётся к одному единственному запросу, в котором так же нужно будет все ё заменить на е.

[BARNEY]

Дублировать Фамилию не вариант...у меня их больше 2,5 миллионов.

с Ё всего около 250 тысяч... Это зря базу раздувать. Есть фамилии и с 3 Ё.
По этому проверка должна быть наверняка.
поиск основной у меня по номеру присвоенному человеку. Но данный вопрос тоже интересен.

[soleil@mmc]

тхаха
BARNEY, перелогиниться забыл?

предложенный вариант - это небольшое раздувание базы
зато сразу можно заменить все ненужные символы на однозначные и привести все буквы к одному регистру (например, верхнему)

[BARNEY]

soleil@mmc, перелогиниться это вы к чему?

Да база всегда должна идти либо в нижнем либо верхнем регистре...у меня она вся в верхнем... По этому вариант добавлять в базу ещё несколько миллионов значение , ради поиска по Е и Ё ...мягко говоря не внушает доверия.

[pu4koff]

Можно попробовать выполнить какой-то такой запрос:

SELECT *
FROM таблица
WHERE (REPLACE(Поле_с_буквой_ё, "Ё", "Е") like строка_поиска)

и из него выудить нужную информацию для навигации. Например, вместо * запрашивать только идентификаторы записей и в программе прописать Locate по этому идентификатору. Вернутся идентификаторы всех найденных записей, а значит проблем с функцией "найти далее" так же не будет.
Так же еще можно тупо у СУБД запросить всех абонентов, пробегать по очереди по каждому, заменять в его фамилии все ё на е и искать подходящего, только вот это всё будет медленнее работать, нежели вариант с раздуванием базы.