Скачать: CL | DM;

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

← →
Павлик   (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]) ;

---

← →
Германн ©   (2008-08-17 00:53) [4]

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


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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c