|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.04.2011, 10:36 | #11 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 157
|
дело в том, что в этом же Edit'e у меня на OnChange идет поиск значения из Edit'a в БД))
А в БД в нужном поле все записи с большой буквы (так надо), и, если сразу не ввести в Edit с большой, то все зацикливается)) Короче, может я и намутила, но в Edit мне надо сразу с большой))) |
24.04.2011, 11:51 | #12 |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
Попробуйте так. Реагирует на нажитый Shift и Capslock
Код:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
24.04.2011, 13:14 | #13 |
Участник клуба
Регистрация: 23.04.2009
Сообщений: 1,058
|
вам нужно поиск сделать?
я так понимаю.... поднимите в вехний регистр что ищите и что вводите в запросе. И не каких проблем не будет.
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
|
25.04.2011, 11:15 | #14 |
Форумчанин
Регистрация: 21.07.2008
Сообщений: 192
|
В событии OnChange загоняй Edit1.Text в переменую string , делай первый символ верхнего регистра и эту переменую используй для БД
Вот пример набросал как пример - можеш по другому Код:
Последний раз редактировалось lexaltd; 25.04.2011 в 11:17. |
08.08.2012, 13:25 | #15 |
Регистрация: 07.05.2012
Сообщений: 6
|
Код преобразования первой буквы в заглавную!
Код:
Последний раз редактировалось Stilet; 08.08.2012 в 13:35. |
08.08.2012, 13:35 | #16 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Да и в Лазарусе пожалуй эти функции сработают лучше чем твой пример
I'm learning to live...
|
|
08.08.2012, 14:22 | #17 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Самый просенький примерчик сразу проверяет первую букву если она с маленькой то переводит ee в заглавную букву, можно доработать если нужно курсор переводится в конец строки
Код:
Последний раз редактировалось Aliens_wolfs; 09.08.2012 в 09:04. |
10.08.2012, 11:13 | #18 |
Пользователь
Регистрация: 10.08.2012
Сообщений: 84
|
procedure TForm1.Edit1Change(Sender: TObject);
var fb,ob: string; begin if length(edit1.Text)>0 then begin fb:=copy(edit1.Text,1,1); ob:=copy(edit1.Text,2,length(edit1. Text)-1); fb:=UpperCase(fb); edit1.Text:=fb+ob; edit1.SelStart:=length(edit1.Text); end; end; Очень криво и указатель всё-время будет перемещаться в конец, однако если этого не делать буквы будут добавляться сначала а не сконца |
10.08.2012, 15:21 | #19 |
Пользователь
Регистрация: 08.11.2011
Сообщений: 46
|
Насколько я поняла, сейчас при вводе любого по порядку символа в Edit идёт проверка, первы это символ в строке или нет. Если не первый - то тогда, независимо от того, что ввели, регистр ставится маленький. Выход вижу в том, чтоб убрать else и всё, что к нему относится.
Добавлю. Чтобы не пыталось проверять каждый символ, можно ввесит в программу глобальную булевскую переменную. При старте программы, скажем, ставим её в False, при вводе в Edit проверяем её состояние, если False - то выполняем проверку символа и замену (а также изменяем значение переменной на True), если True - нет. Последний раз редактировалось mansuetudo; 10.08.2012 в 15:41. |
10.08.2012, 19:57 | #20 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Не надежнее ли так?
Код:
I'm learning to live...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заменить в группе ячеек с текстом регистр букв | Wespe | Microsoft Office Excel | 2 | 21.06.2010 09:01 |
Запись в регистр | Vitek-pm | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 10 | 17.02.2010 04:00 |
Привязка к файлам, Перезагрузка и обновление формы, Регистр букв, Шифровка данных | Лукманов Александр | Общие вопросы Delphi | 2 | 24.12.2008 15:17 |
Регистр для русских букв | Kulibim | Общие вопросы Delphi | 2 | 28.10.2007 17:36 |
регистр | vitalik007 | Общие вопросы Delphi | 2 | 15.09.2007 02:41 |