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

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

11.02.2018, 16:15. Показов 994. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Циклы for в Python
py-thonny 17.03.2025
Существует множество ситуаций, когда нам нужно выполнить одно и то же действие несколько раз. Цикл for в Python — настоящий рабочий конь для большинства программистов. Если вам нужно пройтись по всем. . .
Предсказание ветвлений - путь к высокопроизводи­тельному C++
NullReferenced 17.03.2025
В высокопроизводительном программировании на C++ каждый такт процессора на счету. Когда речь заходит о разработке систем с низкой задержкой — будь то высокочастотная торговля, обработка потоковых. . .
Паттерн CQRS в C#
UnmanagedCoder 17.03.2025
Создание сложных корпоративных приложений часто требует нестандартных подходов к архитектуре. Один из таких подходов — паттерн CQRS (Command Query Responsibility Segregation), предлагающий простую,. . .
Паттерн Цепочка ответственности в C#
UnmanagedCoder 17.03.2025
Цепочка ответственности — это поведенческий паттерн проектирования, который позволяет передавать запросы последовательно по цепочке потенциальных обработчиков, пока один из них не обработает запрос. . . .
Создаем микросервисы с NestJS, TCP и Typescript
run.dev 17.03.2025
NestJS — фреймворк, который значительно упрощает создание серверных приложений на Node. js. Его прелесть в том, что он комбинирует концепции ООП, функционального программирования и предлагает. . .
Гексагональная архитектура со Spring Boot
Javaican 17.03.2025
Если вы когда-нибудь сталкивались с ситуацией, когда внесение простых изменений в базу данных или пользовательский интерфейс заставляло вас переписывать весь код, то вы точно оцените элегантность. . .
Позиционировани­е Kafka Consumer и Seek-операции
Javaican 17.03.2025
Что же такое Consumer Seek в Kafka? По сути, это API-метод, который позволяет программно указать, с какой позиции (offset) Consumer должен начать или продолжить чтение данных из партиции. Без этого. . .
Python NumPy: Лучшие практики и примеры
py-thonny 17.03.2025
NumPy (Numerical Python) — одна из ключевых библиотек для научных вычислений в Python. Она превращает Python из просто удобного языка общего назначения в среду для проведения сложных математических. . .
Java Micronaut в Docker: контейнеризация с Maven и Jib
Javaican 16.03.2025
Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .
Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2
Javaican 16.03.2025
Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер