|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.06.2013, 19:19 | #1 |
Пользователь
Регистрация: 11.12.2012
Сообщений: 10
|
Во введенной строке поменять первые буквы каждого слова на прописные
составить текст программы, которая позволяет по введенной строке поменять первые буквы каждого слова на прописные. Вывести на экран символьную строку до и после изменения
|
06.06.2013, 20:00 | #2 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
и?
что не получается то? функции Pos и PosEx тебя спасут
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
06.06.2013, 20:11 | #3 |
Пользователь
Регистрация: 11.12.2012
Сообщений: 10
|
все не получается
|
06.06.2013, 20:50 | #4 |
Пользователь
Регистрация: 02.06.2013
Сообщений: 11
|
|
06.06.2013, 20:54 | #5 |
Пользователь
Регистрация: 11.12.2012
Сообщений: 10
|
procedure TForm1.Button1Click(Sender: TObject);
var s : string; i : Integer; begin s := Edit1.Text; for i := 1 to Length(s) do if (i = 1) or (s[i-1] in [' ', ',', '.']) then s[i] := AnsiUpperCase(s[i])[1]; ShowMessage(s); end; |
06.06.2013, 20:56 | #6 |
Пользователь
Регистрация: 11.12.2012
Сообщений: 10
|
как сделать так чтобы в ответ выводилась исходная строчка и новая редактированная
|
06.06.2013, 20:58 | #7 |
Участник клуба
Регистрация: 19.12.2007
Сообщений: 1,100
|
Код:
На форуме: Помогаю за спасибо
ICQ\Skype: Это моё личное время ... |
06.06.2013, 21:05 | #8 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Yurk@, for i := 2 to Length(s) - 1 do.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
06.06.2013, 21:15 | #9 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Ещё бы условие добавить, по длине строки. А то менее 3-х символов (например "ё ") и всё, "ошибка по адресу...", хотя фикс от BDA всё поправит
Последний раз редактировалось zetrix; 06.06.2013 в 21:22. |
06.06.2013, 21:18 | #10 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,291
|
Достаточно проверить на пустоту строку s.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
Последний раз редактировалось BDA; 06.06.2013 в 21:22. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова. | danteone | Помощь студентам | 6 | 21.05.2012 12:31 |
объясните как убрать в предложении из каждого слова все повторяющиеся буквы? | st555 | Общие вопросы C/C++ | 0 | 29.12.2010 06:31 |
Поменять слова в строке местами | fen1ksss | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 6 | 28.11.2010 22:25 |
Преобразовать строку таким образом, чтобы буквы каждого слова в ней были отсортированы по возрастанию. | Matr1x | Общие вопросы C/C++ | 4 | 07.01.2010 21:38 |
В заданной строке символов заменить все первые буквы слов на заглавные | NV-salt | Общие вопросы C/C++ | 4 | 05.04.2009 18:41 |