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

[zver777]

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

p:=richedit1.Lines.Count;
for g:=0 to p do
begin
randomize;
i:=random(richedit1.Lines.Count);
richedit2.Lines.Add(richedit1.Lines[i]);
richedit1.Lines.Delete(i);

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

[Вавел из ГМТУ]

Вынеси Randomize из цикла... Randomize Нужно вызывать всего один раз.

[zver777]

Сообщение от Вавел из ГМТУ

Вынеси Randomize из цикла... Randomize Нужно вызывать всего один раз.

Вынес. Но скорости не прибавилось(

[BaronTreep]

Не занимать время удаление строки. Кстати, у вас не "перемешка", т.е. не сортировка - просто случайные строки n раз копируете, некоторые строки продублируются, другие потеряются. Ищете по ключевым словам "случайная сортировка". гугль.

[Serge_Bliznykov]

Вавел из ГМТУ, +1

и ещё, неверно for g:=0 to p do
цикл должен быть до richedit1.Lines.Count-1

да и с удалением - нехорошо. очень "долгая" операция...

[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[i];
    TS.Strings[i] := s;
  end;

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