|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.07.2007, 10:40 | #1 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Перевод в верхний индекс первого символа
.Я использую следующий код для перехода в верхний индекс
Код:
. |
23.07.2007, 10:43 | #2 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Просто функции UpCase и UpperCase не работают с русскими буквами. Если хочешь чтобы они работали с русскими прийдется писать свою собственную функцию.
|
23.07.2007, 10:44 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
UpCase по моему только под Инглиш заточен : (
Life is too short, play more...
Как правильно задавать вопросы |
23.07.2007, 10:51 | #4 |
Пользователь
Регистрация: 23.05.2007
Сообщений: 24
|
Для руского языка подходит ANSIUpperCase
|
23.07.2007, 13:13 | #5 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
Код:
|
23.07.2007, 13:26 | #6 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
Спасибо я уже нашел эту функцию в DelphiWorld.
C уважением Aleksandr! |
09.08.2007, 18:44 | #7 | |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,239
|
Цитата:
И ОЧЕНЬ коротко: Function UpAll(Keys :Char):Char; begin CASE Key Of 'a'..'z','а'..'я': Result:=Chr(Ord(Keys)-32); END; end; Для UpperCase: Загнать строку в цикл и заменит при помощи функции UpAll все буквы. Последний раз редактировалось Alter; 09.08.2007 в 18:47. |
|
10.08.2007, 08:14 | #8 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Можно попроще:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var S:string; begin S:=Key; Key:=AnsiUpperCase(S)[1]; end; |
10.08.2007, 08:18 | #9 |
Форумчанин
Регистрация: 22.05.2007
Сообщений: 511
|
SERG1980 нет не то у тебя пишет все заглавные, а нужно было чтобы первая заглавная остальные прописные.
|
10.08.2007, 09:25 | #10 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
Здесь велосипед не нужен:
Код:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как мне в tListView выелить item зная индекс | Altera | Общие вопросы Delphi | 2 | 15.05.2008 06:23 |
Даны числа от 100 до 999. Вводится индекс... | Ci_novice | Помощь студентам | 4 | 19.04.2008 12:59 |
Перевод кода символа в символ таблицы ASCII | nerh | Общие вопросы C/C++ | 3 | 01.02.2008 20:34 |
50 лет назад в СССР произведён запуск первого искусственного спутника Земли. | Alex21 | Свободное общение | 2 | 07.10.2007 05:57 |