Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

[Delphi] Перемешиваем строки

930
06 мая 2007 года
Sash1k
115 / / 27.04.2007
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.

кусок кода:
 
Код:
begin
Edit1.Text; // сдесь исходный файл, в котором берём строки.
//тут нужен код который пермешивает строки.
Edit2.Text; // здесь сохраняем перемешанный текст.
4.4K
06 мая 2007 года
erzik
47 / / 08.04.2006
Если уж можно пользоваться всякими Edit и прочими элементами, то можно сделать 2 текстовых поля TMemo, в первое открыть исходный файл (Memo1->Lines->LoadFromFile(Edit1->text)) после чего брать рандромные числа (так, чтобы они были меньше количества строк Memo1->Lines->Strings) и помещать строки с номерами этих чисел во второе поле Memo2. Только тогда нада еще сразу после копирования строки удалять ее из поля Memo1, чтобы они не повторялись.
PS. Сам пишу под С++, поэтому коммент соответствующий.
PSS. Дал бы и код, но компилятора установленного щас нету :(
930
06 мая 2007 года
Sash1k
115 / / 27.04.2007
получается, что то подобное:
 
Код:
randomize;
mix_count := random(50); // количество рандомных перестановок
for i := 1 to mix_count do begin
  p := random(n) + 1; // n - количество строк, прочитанных из файла в массив
  q := random(n) + 1;
  T := arr[ p ];
  arr[ p ] := arr[ q ];
  arr[ q ] := T;
end;
//пишем массив в файл

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог