begin
Edit1.Text; // сдесь исходный файл, в котором берём строки.
//тут нужен код который пермешивает строки.
Edit2.Text; // здесь сохраняем перемешанный текст.
[Delphi] Перемешиваем строки
есть текстый файл, который содержит текст, его нужно открыть, перемешать строки текста в нём в произвольном порядке и сохранить в другом файле.
кусок кода:
кусок кода:
Код:
Если уж можно пользоваться всякими Edit и прочими элементами, то можно сделать 2 текстовых поля TMemo, в первое открыть исходный файл (Memo1->Lines->LoadFromFile(Edit1->text)) после чего брать рандромные числа (так, чтобы они были меньше количества строк Memo1->Lines->Strings) и помещать строки с номерами этих чисел во второе поле Memo2. Только тогда нада еще сразу после копирования строки удалять ее из поля Memo1, чтобы они не повторялись.
PS. Сам пишу под С++, поэтому коммент соответствующий.
PSS. Дал бы и код, но компилятора установленного щас нету :(
PS. Сам пишу под С++, поэтому коммент соответствующий.
PSS. Дал бы и код, но компилятора установленного щас нету :(
получается, что то подобное:
Код:
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;
//пишем массив в файл
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;
//пишем массив в файл