powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заглавные буквы в первом слове?
6 сообщений из 6, страница 1 из 1
Заглавные буквы в первом слове?
    #32083767
Cherruty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть ли в Delphi функция перевода строки в строку с первыми буквами в словах заглавными? Как в Worde?
...
Рейтинг: 0 / 0
Заглавные буквы в первом слове?
    #32083770
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
function UCaseFirst(inValue: string) {
  UCaseFirst:=Ucase(Left(inValue, 1 )) & right(inValue,len(inValue)- 1 );
}
...
Рейтинг: 0 / 0
Заглавные буквы в первом слове?
    #32083772
Cherruty
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А разве стандартной никакой не имеется?
Что всю строку так перебирать
...
Рейтинг: 0 / 0
Заглавные буквы в первом слове?
    #32083786
Фотография cyc10ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
если мне не изменяет память то нет
собственно какая разница, если бы и была все равно оно бы в ней перебиралось (;
...
Рейтинг: 0 / 0
Заглавные буквы в первом слове?
    #32083875
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если мне память не изменяет, то в Delphi можно со стринг работать вот так:
Код: plaintext
1.
MyVariable:= "весь текст в строчных символах" ;
MyVariable[ 1 ]=UCASE(MyVariable[ 1 ]);

C_НОВЫМ_ГОДОМ!!!
...
Рейтинг: 0 / 0
Заглавные буквы в первом слове?
    #32084098
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А че так тупить - самому функцию не написать - че за тупизм?
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заглавные буквы в первом слове?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]