Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

21st
Мар

Как быстро перемешать строки?

Posted by maloy under Delphi, Архив

zver777

Мне надо перемешать строки. Использовал следующий код.
Код:

Код:

p:=richedit1.Lines.Count;

for g:=0 to p do

begin

randomize;

i:=random(richedit1.Lines.Count);

richedit2.Lines.Add(richedit1.Lines);

richedit1.Lines.Delete(i);

Но работает слишком долго. Мне надо будет перемешивать файлы с большим количеством строк(от 1 до 500000 строк).

Serge_Bliznykov

вот перемешивание 500000 записей заняло около трёх секунд:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i, k, kol : Longint;
  TS : TStringList;
  s  : string;
begin
  TS := TStringList.Create;
  TS.Text := Memo1.Text;
  Randomize;
  kol := TS.Count;
  for i:=0 to kol-1 do
  begin
    k := Random(kol);
    while k=i do k := Random(kol);
    s := TS.Strings[k];
    TS.Strings[k] := TS.Strings;
    TS.Strings := s;
  end;

  Memo2.Text := TS.Text;
  FreeAndNil(TS);
end;

тема на форуме от 2009 года