Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2019, 15:19   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
Вопрос Перевести текст из верзнего регистра в нижний

Доброго времени суток!
В Есть строки в верхнем регистре:
ЯБЛОКО
ГРУША
АПЕЛЬСИН

Задача: перевести содержимое строки в нижний регистр кроме первой буквы в слове.
Shouldercannon вне форума Ответить с цитированием
Старый 15.04.2019, 15:26   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Shouldercannon Посмотреть сообщение
В Есть строки в верхнем регистре:
простите в чём есть строки?


Цитата:
Сообщение от Shouldercannon Посмотреть сообщение
Задача: перевести содержимое строки в нижний регистр кроме первой буквы в слове.
SysUtils.LowerCase

Код:
s := 'ЯБЛОКО';
if Length(s)>1 
then s := s[1] +  SysUtils.LowerCase(Copy(s,2,Length(s)-1));
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.04.2019, 15:35   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

чтобы без if и наверняка Я большое, вдруг оно маленькое было )
Код:
AnsiUpperCase(Copy(s,1,1))+AnsiLowerCase(Copy(s,2,Length(s)-1))
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 15.04.2019, 15:37   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
чтобы без if и наверняка Я большое:
согласен, так лучше.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.04.2019, 20:13   #5
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Благодарю
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Трансформирование из верхнего регистра в нижний и наоборот(С++) aminhotep Помощь студентам 0 22.12.2011 16:44
Перевести текст из sRichedit в БД. grom333 БД в Delphi 8 21.12.2011 23:31
Перевести текст marinchik Свободное общение 15 02.07.2008 11:40
как перевести дату в текст zetrix Microsoft Office Excel 0 31.10.2006 07:37