Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
| NEFFboy |
6.05.2007 11:26
Сообщение
#1
|
![]() Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Мужской Реальное имя: Александр Репутация: 0 |
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.
кусок кода: Код begin Edit1.Text; // сдесь исходный файл, в котором берём строки. //тут нужен код который пермешивает строки. Edit2.Text; // здесь сохраняем перемешанный текст. -------------------- не дня без строчки кода.
|
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 Ну в принципе тоже что и я написал, только у тебя
... 9.05.2007 17:31
klem4 Ну вот захотелось мне 50 :) Это количество переста... 10.05.2007 20:10![]() ![]() |
|
Текстовая версия | 8.12.2025 12:05 |