 Delphi. Перемешиваем строки. |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| NEFFboy |
 6.05.2007 11:26
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация:  0   |
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.
кусок кода: Код begin Edit1.Text; // сдесь исходный файл, в котором берём строки. //тут нужен код который пермешивает строки. Edit2.Text; // здесь сохраняем перемешанный текст. -------------------- не дня без строчки кода.
|
   |
 
|
  |
Ответов
| klem4 |
9.05.2007 17:31
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Ну в принципе тоже что и я написал, только у тебя
Цитата random(a.Count-1); Единицу вычитать не надо, ибо random(x) возвращает случайное значение в интервале от 0 до X - 1 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
NEFFboy Delphi. Перемешиваем строки. 6.05.2007 11:26
klem4 читаешь строки в массив, а потом делаешь что-то вр... 6.05.2007 11:38
NEFFboy
ну или заюзать для работы TStrings всесто массива... 7.05.2007 8:25 hardcase
не подскажешь как заюзать TSrings?
приложение бе... 7.05.2007 12:07 klem4 procedure TForm1.Button1Click(Sender: TObject);
va... 9.05.2007 10:31 NEFFboy
swap_count := 50;
А почему именно 50? 10.05.2007 20:03 NEFFboy спасибо за помощь...
разобрался сам, сделал, то чт... 9.05.2007 16:29 klem4 Ну вот захотелось мне 50 :) Это количество переста... 10.05.2007 20:10 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 10.12.2025 21:33 |