Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Angiiii
0 / 0 / 0
Регистрация: 09.11.2019
Сообщений: 2
1

В каждом слове заменить последнюю букву на прописную.

09.11.2019, 22:05. Просмотров 112. Ответов 1
Метки нет (Все метки)

Задан текст, слова в котором разделены пробелами. В каждом слове заменить последнюю букву на прописную.(delphi 7)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2019, 22:05
Ответы с готовыми решениями:

1

AzAtom
508 / 303 / 115
Регистрация: 15.11.2015
Сообщений: 1,283
09.11.2019, 22:28 2
Ввод в Edit1, вывод в Edit2, обработка по нажатию кнопки. Ниже код обработчика нажатия кнопки:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: integer;
  s, s2: string;
begin
  sl := TStringList.Create;  // Создание объекта типа TStringList
  sl.DelimitedText := Edit1.Text; // Этот метод объекта разделяет текст на отдельные слова по заданному разделителю. Изначально разделитель уже пробел, поэтому, явно можно не задавать
  s2 := ''; // Инициализация выходной строки
  for i := 0 to sl.Count - 1 do begin // В sl теперь находится столько строк, сколько было слов в тексте. Перебираем их все
    s := sl.Strings[i]; // Загружаем в s очередную строку
    s[Length(s)] := AnsiUpperCase(s[Length(s)])[1]; // Меняем регистр последнего символа
    s2 := s2 + s + ' '; // Добавляем получившееся слово к выходной строке
  end;
  Edit2.Text := s2; // В конце выводим получившуюся строку
  sl.Free; // Уничтожаем объект StringList
end;
Добавлено через 1 минуту
Вход: Задан текст, слова в котором разделены пробелами. В каждом слове заменить последнюю букву на прописную.(delphi 7)
Выход: ЗадаН тексТ словА В котороМ разделенЫ пробелами. В каждоМ словЕ заменитЬ последнюЮ буквУ нА прописную.(delphI 7)
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2019, 22:28

Удалить последнюю букву в каждом слове
Удалить последнюю букву в каждом слове.

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.