|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.01.2011, 11:31 | #1 |
Пользователь
Регистрация: 30.06.2008
Сообщений: 17
|
Ввод с большой буквы
Вопросик такой:
мне надо что б был запрет на ввод С маленькой буквы (выделяю "С" - потому что первая ДОЛЖНА быть заглавная,а последующие - маленькие) begin if key in ['а'..'я','a'..'z'] then begin key:=#0; ShowMessage('Разрешается ввод с большой буквы'); end; но после этого требуется что б и вторая, и третья и.т.д - тоже были большие!!! Так как сделать,что б первая заперещал вводить маленькой,а разрешал? спасибо |
13.01.2011, 11:37 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,758
|
А просто самому не судьба автоматом переводить первую букву в заглавную через UpperCase?
|
13.01.2011, 11:48 | #3 |
Пользователь
Регистрация: 30.06.2008
Сообщений: 17
|
|
13.01.2011, 11:53 | #4 |
Форумчанин
Регистрация: 03.01.2011
Сообщений: 233
|
если всё это происходит в memo, а я почти уверен, что да...
я бы использовал цикл while с переменной boolean для включения и выключения цикла и проверял бы каждую строку на символ, не знаю как там будет "заглавный" по этому сделал по нубски: заменял стринговое значение первого символа в каждой строке если первый символ строки 'с' заменяем его на 'C' и идём дальше) хотя вот цикл for to do гораздо проще от первой строки до последней делаем первый символ заглавным
пыжок
Последний раз редактировалось maloun; 13.01.2011 в 11:57. |
13.01.2011, 11:57 | #5 |
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Если кодом, то
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ |
13.01.2011, 12:05 | #6 |
Форумчанин
Регистрация: 03.01.2011
Сообщений: 233
|
не пашет, пишет вот такие ошибки:
[Error] Unit1.pas(32): Left side cannot be assigned to [Error] Unit1.pas(32): Incompatible types: 'Char' and 'String' [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' + у меня вопрос, а если первым сиволом будет не буква?
пыжок
|
13.01.2011, 12:08 | #7 | ||
Trust no one.
Старожил
Регистрация: 07.04.2009
Сообщений: 6,526
|
Цитата:
Цитата:
Код:
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ Последний раз редактировалось Alex Cones; 13.01.2011 в 12:10. |
||
13.01.2011, 12:08 | #8 |
Пользователь
Регистрация: 30.06.2008
Сообщений: 17
|
У меня в Edit
Нашла вот такой пример: with Sender as TEdit do if (SelStart = 0) or (Text[SelStart] = ' ') then if Key in ['a'..'z'] then Key := UpCase(Key) ; Все работает,т.е ПЕРВАЯ АНГЛИЙСКАЯ БУКВА маленькая - автоматом на ЗАГЛАВНУЮ переходит, но у меня русский алфавит....если в место "UpCase" поставить "AnsiUpperCase" - ошибка Последний раз редактировалось angel_ok; 13.01.2011 в 12:12. |
13.01.2011, 12:10 | #9 |
Форумчанин
Регистрация: 03.01.2011
Сообщений: 233
|
Alex Cones откуда ты это берёшь?
щас проверю...
пыжок
Последний раз редактировалось maloun; 13.01.2011 в 12:13. |
13.01.2011, 12:12 | #10 | |
Форумчанин
Регистрация: 03.01.2011
Сообщений: 233
|
ну едит так едит))
Цитата:
а строку полную цифр удаляет...
пыжок
Последний раз редактировалось maloun; 13.01.2011 в 12:18. |
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
большой цикл | bulldog5293 | Общие вопросы Delphi | 7 | 15.12.2010 15:06 |
Большой екзешник | MBentefor | C++ Builder | 4 | 16.04.2010 10:24 |
Все ли эти слова написаны с большой буквы | dip | Помощь студентам | 11 | 02.11.2009 20:42 |
Большой шрифт | vitalik007 | HTML и CSS | 5 | 25.10.2007 14:33 |