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

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

11.02.2018, 16:15. Показов 1000. Ответов 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,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
5633 / 4478 / 1086
Регистрация: 29.08.2013
Сообщений: 27,925
Записей в блоге: 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 в продакшене: Лучшие практики для 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, нюансов конфигурирования, подходов к оптимизации и построению сложных. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер