![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Форумчанин
Регистрация: 06.03.2009
Сообщений: 157
|
![]()
дело в том, что в этом же Edit'e у меня на OnChange идет поиск значения из Edit'a в БД))
А в БД в нужном поле все записи с большой буквы (так надо), и, если сразу не ввести в Edit с большой, то все зацикливается)) Короче, может я и намутила, но в Edit мне надо сразу с большой))) |
![]() |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 21.10.2010
Сообщений: 588
|
![]()
Попробуйте так. Реагирует на нажитый Shift и Capslock
Код:
Пользователь не знает, чего он хочет, пока не увидит то, что он получил.
Для благодарностей WMR R145235935681 |
![]() |
![]() |
![]() |
#13 |
Участник клуба
Регистрация: 23.04.2009
Сообщений: 1,058
|
![]()
вам нужно поиск сделать?
я так понимаю.... поднимите в вехний регистр что ищите и что вводите в запросе. И не каких проблем не будет.
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
|
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 21.07.2008
Сообщений: 192
|
![]()
В событии OnChange загоняй Edit1.Text в переменую string , делай первый символ верхнего регистра и эту переменую используй для БД
Вот пример набросал как пример - можеш по другому Код:
Последний раз редактировалось lexaltd; 25.04.2011 в 11:17. |
![]() |
![]() |
![]() |
#15 |
Регистрация: 07.05.2012
Сообщений: 6
|
![]()
Код преобразования первой буквы в заглавную!
Код:
Последний раз редактировалось Stilet; 08.08.2012 в 13:35. |
![]() |
![]() |
![]() |
#16 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
Да и в Лазарусе пожалуй эти функции сработают лучше чем твой пример
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
![]()
Самый просенький примерчик сразу проверяет первую букву если она с маленькой то переводит ee в заглавную букву, можно доработать если нужно курсор переводится в конец строки
Код:
Последний раз редактировалось Aliens_wolfs; 09.08.2012 в 09:04. |
![]() |
![]() |
![]() |
#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; Очень криво и указатель всё-время будет перемещаться в конец, однако если этого не делать буквы будут добавляться сначала а не сконца |
![]() |
![]() |
![]() |
#19 |
Пользователь
Регистрация: 08.11.2011
Сообщений: 46
|
![]()
Насколько я поняла, сейчас при вводе любого по порядку символа в Edit идёт проверка, первы это символ в строке или нет. Если не первый - то тогда, независимо от того, что ввели, регистр ставится маленький. Выход вижу в том, чтоб убрать else и всё, что к нему относится.
Добавлю. Чтобы не пыталось проверять каждый символ, можно ввесит в программу глобальную булевскую переменную. При старте программы, скажем, ставим её в False, при вводе в Edit проверяем её состояние, если False - то выполняем проверку символа и замену (а также изменяем значение переменной на True), если True - нет. Последний раз редактировалось mansuetudo; 10.08.2012 в 15:41. |
![]() |
![]() |
![]() |
#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 |