Delphi. Перемешиваем строки. Опции

[NEFFboy]

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

кусок кода:

Код

begin
Edit1.Text; // сдесь исходный файл, в котором берём строки.
//тут нужен код который пермешивает строки.
Edit2.Text; // здесь сохраняем перемешанный текст.

[klem4]

читаешь строки в массив, а потом делаешь что-то вроде этого:

// читаем строки в массив arr
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;
// пишем массив в новый файл

Добавлено через 3 мин.
ну или заюзать для работы TStrings всесто массива.

[NEFFboy]

ну или заюзать для работы TStrings всесто массива.

не подскажешь как заюзать TSrings?
приложение без TMemo.

Сообщение отредактировано: NEFFboy - 7.05.2007 8:25