Перемешивание строк

[DIgorevich]

Скинь список, попробую разобраться.

[gamer123]

Сообщение от DIgorevich

Скинь список, попробую разобраться.

текст из мемо всмысле?

[bitSoft]

Сообщение от gamer123

текст из мемо всмысле?

Da, sahrani v odin .txt

[DIgorevich]

Уже не надо, я в Ворде копипастом 16000 набросал...

[evg_m]

Все работает как надо, только очень очень долго.

такие вещи надо делать в НЕВИЗУАЛЬНЫХ компонентах к примеру TStringList
много времени впустую тратится на визуальное обновление информации закоторой никто не уследит

list:=TstringList;
lst.text:=memo1.text; //один раз копируем 
for j:=0 to <числоперемешиваний> do
list.exchange(random(list.count), random(list.count);

memo.text:=list.text;//и один раз выводи уже готовый результат
list.free;

[gamer123]

Сообщение от DIgorevich

Уже не надо, я в Ворде копипастом 16000 набросал...

уже отправил)

[DIgorevich]

Действительно... 16000 строк за 5 сек:

var
  x,i:Integer;
  lst:TStringList;
begin
lst:=TstringList.Create;
lst.Text:=mmo1.text;
  x:=mmo1.Lines.Count;
    for i:=1 to x-1 do
      begin
        Lst.Exchange(random(x),random(x));
      end;
 mmo1.text:=lst.text;
 lst.free;

[gamer123]

Сообщение от DIgorevich

Действительно... 16000 строк за 5 сек:

var
  x,i:Integer;
  lst:TStringList;
begin
lst:=TstringList.Create;
lst.Text:=mmo1.text;
  x:=mmo1.Lines.Count;
    for i:=1 to x-1 do
      begin
        Lst.Exchange(random(x),random(x));
      end;
 mmo1.text:=lst.text;
 lst.free;

отлично работает, спасибо)