Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
 Аватар для Hardalternative
3 / 3 / 0
Регистрация: 30.01.2018
Сообщений: 415
1
RAD XE3+

RandomRange и произвольный текст

11.02.2018, 16:15. Показов 986. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Пишу программу по замене слов в одной строке на delphi.

Тут идет замена слова на в произвольном порядке.
Delphi Скопировано
1
2
for k := 0 to sk.Count - 1 do
     sk.Exchange(k, RandomRange(0, sk.Count));
Тут идет замена в строке:
Delphi Скопировано
1
2
3
4
5
begin
     sk.Strings[r] := StringReplace(sm.Strings[r], dms_my.Text, sm.Strings[k]);
    inc(m);
     if m = sm.Count then m := 0;
    end;
На примере, текст такого плана (Прикрепил текст скриншота проекта):
"2018",2018,2018"
"2018",2018,2018"
"2018",2018,2018"

Ввожу что 2018 нужно изменить на 2019, 2020, 2030 нажимаю кнопку.

Программа обрабатывает текст благодаря функции RandomRange (произвольная замена) на:
"2030",2030, 2030"
"2020",2020,2020"
"2019",2019,2019"

А хотелось бы что бы изменения были в таком порядке:
"2030",2020,2019"
"2020",2019,2030"
"2019",2030,2020"
Проще говоря в каждой строке, каждое слово - > произвольно изменялось. Что нужно изменить в RandomRange или может использовать какую то другую функцию ?
Миниатюры
RandomRange и произвольный текст  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.02.2018, 16:15
Ответы с готовыми решениями:

Дан произвольный текст. Выяснить, чего в нем больше: русских букв или цифр
Помогите пожалуйста с написанием программы... Дан произвольный текст. Выяснить, чего в нем больше: русских букв или цифр.

Как написать процедуру вывода окна сообщения, содержащего произвольный текст,используя Delphi?
Помогите с программкой. Сделал бы сам,да вот с компьютером проблема. Заранее спасибо.

Дан произвольный русский текст. Проверить каких букв в нем больше: гласных или согласных
Помогите, исправьте пожалуйста Unit2.pas(53): E2008 Incompatible types for i:= 1 to length(F) do Unit2.pas(54): E2016 Array...

3
5633 / 4478 / 1086
Регистрация: 29.08.2013
Сообщений: 27,923
Записей в блоге: 3
11.02.2018, 19:34 2
так вам нужно построчно менять или еще строку разбить на 3 подстроки?
0
 Аватар для Hardalternative
3 / 3 / 0
Регистрация: 30.01.2018
Сообщений: 415
11.02.2018, 23:49  [ТС] 3
qwertehok, да построчно, замена немного не так идет. Другими словами говоря - если в строке встречаются два и более слов то программа изменяет их всех на одно одинаковое. А нужно на разные - именно в строке.
0
5633 / 4478 / 1086
Регистрация: 29.08.2013
Сообщений: 27,923
Записей в блоге: 3
12.02.2018, 08:46 4
Лучший ответ Сообщение было отмечено Hardalternative как решение

Решение

занести подстроки в массив, и выбирать случайное из массива
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
12.02.2018, 08:46
Помогаю со студенческими работами здесь

Math и RandomRange
Для применеия математической функции генерации случайных символов в определенном диапазоне я использую RandomRange с добавлением в uses...

Ошибка в RandomRange
Нужно заполнить массив из n элементов автоматически. При чем, чтобы случайные числа были в диапазоне от значения числа в поле Edit1 до...

Ввести произвольный текст на русском языке, определить и вывести все слова, начинающиеся и заканчивающиеся на одну и ту же букву
необходимо использовать радио кнопки. Разработать приложение, позволяющее ввести произвольного текста на русском языке, а затем...

Где находится RandomRange?
Пишу код if NVap <=3 then Number:=randomRange(400,800); выдает ошибку на RandomRange

RandomRange выдает случайные значения в одинаковом порядке
всем привет, сегодня с такой проблемой столкнулся, раньше с таким не сталкивался. я подключил uses math , в одном мемо у меня записаны...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Осваиваем Kubernetes: Подробная шпаргалка
Mr. Docker 15.03.2025
Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .
Лучшие PHP REST API фреймворки
Jason-Webb 15.03.2025
Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .
Многопоточность в Java с Project Loom: виртуальные или обычные потоки
Javaican 15.03.2025
Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .
Что нового в Swift 6 и особенности миграции
mobDevWorks 15.03.2025
Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .
Вопросы на собеседовании по Android
mobDevWorks 14.03.2025
По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python
py-thonny 14.03.2025
Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .
Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda
run.dev 14.03.2025
Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .
Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки
NullReferenced 14.03.2025
C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .
smart-agent proper interface settings (2025)
jigi33 14.03.2025
Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)
Продвинутые настройки JVM
Javaican 14.03.2025
Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер