Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

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

Павлик (2008-08-17 13:42:00) [1]
Не совсем правильно получилось. Надо чтобы при вводе в Едит только первая буква делалась прописной

Германн (2008-08-17 00:53:00) [2]

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

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

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

Павлик (2008-08-16 23:25:00) [3]
> Правильный$Вася

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

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

Virgo_Style (2008-08-16 19:08:00) [4]
[Ansi]UpperCase, [Ansi]LowerCase, [Ansi]SameText

Правильный$Вася (2008-08-16 19:07:00) [5]
1. сделать регистронезависимый индекс
2. Famil:=AnsiUpperCase(Edit2.Text);
3. использовать Locate с опцией loCaseInsensitive

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »