Поиск записей

← →
Павлик (2008-08-16 18:51) [0]

Уважаемые мастера подскажите плиз. Делаю поиск записей на неточное соответствие. А как можно сделать, чтобы при вводе значения в Edit2 регистр не учитывался.

procedure TForm1.FindButton7Click(Sender: TObject);
var Famil:String;
begin
Famil:=String(Edit2.Text);
Table1.FindNearest([Famil]) ;
Edit2.Clear;

← →
Правильный$Вася (2008-08-16 19:07) [1]

1. сделать регистронезависимый индекс
2. Famil:=AnsiUpperCase(Edit2.Text);
3. использовать Locate с опцией loCaseInsensitive

← →
Virgo_Style © (2008-08-16 19:08) [2]

[Ansi]UpperCase, [Ansi]LowerCase, [Ansi]SameText

← →
Павлик (2008-08-16 23:25) [3]

> Правильный$Вася

А как в этом случае при вводе в Edit2 заставить сделать первую букву прописной

procedure TForm1.Edit2Change(Sender: TObject);
begin
Table1.FindNearest([Edit42Text]) ;

> Павлик (16.08.08 23:25) [3]
>
> > Правильный$Вася
>
> А как в этом случае при вводе в Edit2 заставить сделать
> первую букву прописной
>

> Павлик (16.08.08 18:51)
>
> Уважаемые мастера подскажите плиз. Делаю поиск записей на
> неточное соответствие. А как можно сделать, чтобы при вводе
> значения в Edit2 регистр не учитывался.
>
>

Как понимать тебя, Саид?

← →
Павлик (2008-08-17 13:42) [5]

Не совсем правильно получилось. Надо чтобы при вводе в Едит только первая буква делалась прописной

Поиск записей Найти похожие ветки