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

[gamer123]

как организовать рандомное перемешивание строк в мемо?

[Stilet]

with memo1 do
 for i:=0 to Lines.Count-1 do begin
  Lines.Exchange(Random(Lines.Count),Random(Lines.Count));
 end;

Подойдет?
P.S. Не проверял...

[gamer123]

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

with memo1 do
 for i:=0 to Lines.Count-1 do begin
  Lines.Exchange(Random(Lines.Count),Random(Lines.Count));
 end;

Подойдет?
P.S. Не проверял...

если работает - то подойдет) ща проверю

[gamer123]

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

with memo1 do
 for i:=0 to Lines.Count-1 do begin
  Lines.Exchange(Random(Lines.Count),Random(Lines.Count));
 end;

Подойдет?
P.S. Не проверял...

Все работает как надо, только очень очень долго. Список 10 000 строк перемешивался минут 10 (в программе KeyWordKeeper перемешивание этого списка идет 2-3 секунды). Можно как нибуть ускорить это?

[DIgorevich]

попробуй сделать так:

memo1.DoubleBuffered:=True;
memo1.Lines.BeginUpdate;
with memo1 do
 for i:=0 to Lines.Count-1 do
 begin
  Lines.Exchange(Random(Lines.Count),Random(Lines.Count));
 end;
memo1.Lines.EndUpdate;

[gamer123]

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

попробуй сделать так:

memo1.DoubleBuffered:=True;
memo1.Lines.BeginUpdate;
with memo1 do
 for i:=0 to Lines.Count-1 do
 begin
  Lines.Exchange(Random(Lines.Count),Random(Lines.Count));
 end;
memo1.Lines.EndUpdate;

Тоже самое, полдня идет. Еслиб на вмваре - то яб не удивился, а тут на простом компе так, это ппц...

[DIgorevich]

Значит избавляемся от лишних расчетов... Попробуй так:

var
  x,i:Integer;
begin
  memo1.DoubleBuffered:=True;
  memo1.Lines.BeginUpdate;
  x:=memo1.Lines.Count;
  with memo1 do
    for i:=0 to x-1 do
      begin
        Lines.Exchange(Random(x),Random(x));
      end;
  memo1.Lines.EndUpdate;
end;

Скорость должна увеличиться, но не на много.

[gamer123]

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

Значит избавляемся от лишних расчетов... Попробуй так:

var
  x,i:Integer;
begin
  memo1.DoubleBuffered:=True;
  memo1.Lines.BeginUpdate;
  x:=memo1.Lines.Count;
  with memo1 do
    for i:=0 to x-1 do
      begin
        Lines.Exchange(Random(x),Random(x));
      end;
  memo1.Lines.EndUpdate;
end;

Скорость должна увеличиться, но не на много.

Стало быстрей, но не существенно. Будет генерица 8-9 минут вместо 10. Может есть другие варианты реализации данной функции?

[DIgorevich]

Собственно, можешь посмотреть саму функцию Exchange и адаптировать под себя. Хотя сомневаюсь, что быстрее станет. У KeyWordKeeper'a, возможно, другие методы работы со строками. Да и язык другой.

[gamer123]

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

Тоже самое, полдня идет. Еслиб на вмваре - то яб не удивился, а тут на простом компе так, это ппц...

чето из цикла выходиь не хочет. Дождался наконец окончания оно в мемо показывает что поменяло и стоит на 1м месте

сорь, вышло из цикла. прогресс бар дошел до 100, постояло еще минут 15 и вышло. мда..