Добавлено спустя 25 минут 36 секунд:
Вот так заработало.
Вроде достаточно
Код: Выделить всё
fText:=UpperCase(DataSet.FieldByName(EnglishNameField).Value);
accept:= POS(UpperCase(FrmW.Edit1.Text), fText) <> 0; Код: Выделить всё
fText:=UpperCase(DataSet.FieldByName(EnglishNameField).Value);
accept:= POS(UpperCase(FrmW.Edit1.Text), fText) <> 0; Brainenjii писал(а):Скорее всего Вам помогут firebird events