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

@Hardalternative · Регистрация: 30.01.2018

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 или может использовать какую то другую функцию ?

@qwertehok · 11.02.2018, 19:34

так вам нужно построчно менять или еще строку разбить на 3 подстроки?

@Hardalternative · 11.02.2018, 23:49 **[ТС]**

qwertehok, да построчно, замена немного не так идет. Другими словами говоря - если в строке встречаются два и более слов то программа изменяет их всех на одно одинаковое. А нужно на разные - именно в строке.

@qwertehok · 12.02.2018, 08:46

занести подстроки в массив, и выбирать случайное из массива

Новые блоги и статьи Все статьи Все блоги /
Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .	Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .
std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .	Введение в Dapr для разработчиков .NET UnmanagedCoder 18.03.2025 Разработка распределенных систем никогда не была настолько востребованной и одновременно такой сложной. Если вы . NET разработчик, то наверняка сталкивались с необходимостью жонглировать обнаружением. . .	Собеседование по Spring Boot: продвинутые вопросы и ответы Javaican 18.03.2025 Собеседования на позиции старших разработчиков и архитекторов требуют глубокого понимания внутренних механизмов Spring Boot, нюансов конфигурирования, подходов к оптимизации и построению сложных. . .

@qwertehok 5633 / 4478 / 1086 Регистрация: 29.08.2013 Сообщений: 27,925 Записей в блоге: 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

@qwertehok 5633 / 4478 / 1086 Регистрация: 29.08.2013 Сообщений: 27,925 Записей в блоге: 3
	12.02.2018, 08:46	4
	Сообщение было отмечено Hardalternative как решение Решение занести подстроки в массив, и выбирать случайное из массива 1

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

Решение