кусок кода:
Код
begin
Edit1.Text; // сдесь исходный файл, в котором берём строки.
//тут нужен код который пермешивает строки.
Edit2.Text; // здесь сохраняем перемешанный текст.
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
Delphi. Перемешиваем строки. |
NEFFboy |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация: 0 |
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.
кусок кода: Код begin Edit1.Text; // сдесь исходный файл, в котором берём строки. //тут нужен код который пермешивает строки. Edit2.Text; // здесь сохраняем перемешанный текст. -------------------- не дня без строчки кода.
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
procedure TForm1.Button1Click(Sender: TObject); -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
NEFFboy |
Сообщение
#3
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация: 0 |
-------------------- не дня без строчки кода.
|
Текстовая версия | 29.03.2024 0:49 |