tstringlist - перемешать строчки

[paravoz1k]

Как в tstringlist перемешать строчки? есть ли функция как в php(перемешивание элементов массива)?

[Пепел Феникса]

TStringList не массив.

а так можете ручками взять и написать такую функцию.

[evg_m]

Tstrings Exchange & random

[Serge_Bliznykov]

дополню ответы коллег примером кода.

procedure TForm1.Button1Click(Sender: TObject);
var TS  : TStringList;
   i, k, N : integer;
begin
 TS := TStringList.Create;
 {для тестирования заполним TS числами от 1 до 20}
 for i:=1 to 20 do TS.Append(IntToStr(i));

 {вот, собственно код перемешивания}

 Randomize; // иницилизируем ГСЧ

 N := TS.Count;
 //----------перемешать-------------
 for i:=1 to N-1 do
  begin
   k:= Random(N-i+1)+i;
   if k<>i then TS.Exchange(i-1,k-1);
  end;


 //-------------вывести результат-------------
 Memo1.Lines.Text :=  TS.Text;
end;

p.s. случайное распределение будет нормальное, т.к. в алгоритме учтены поправки отсюда Как не надо тасовать карты

[paravoz1k]

Cергей, спасибо вам большое, но я написал свою функцию

procedure Meshaem(f:tstringlist);
var
i:integer;
begin
for i:=0 to 100 do
begin
f.Exchange(random(f.Count),random(f .Count));
end;
end;

Можете посмотреть, разве чем вариант плох?

[Serge_Bliznykov]

ваш вариант ОЧЕНЬ плох..

1) откуда взялось число 100 ?! почему не 10 или не 500 или не 10000 ?

2) чем больше записей будет в исходном TStringList, тем больше записей вообще останутся "нетронутыми" (ну, очевидно, что если у Вас будет больше 200 строчек, то даже в самом оптимальном случае ГАРАНТИРОВАННО будут те строчки, которые не попададут в "переплёт", т.е. не будут ни с кем обмены)
Заполните, например, ваш TStringGrid числами от 1 до 1000
перемешайте и выведите результат в Memo
Вы будете потрясены. Целые блоки (последовательности) исходных чисел будут стоять на своих первоначальных местах.

3) В Вашем коде о каком-то равномерномерном-неравномерном распределении говорить вообще не приходится!
Для большего понимания о чём идёт речь, рекомендую ознакомится вот с этой темой на форуме:
В хаотическом порядке получить числа 1-100
ну и не помешает сходить по ссылке, которую я уже приводил
"Как не надо тасовать карты"

4) надеюсь, Вы не забыли в своей программе вызвать
Randomize;
?!
Это очень Важно!
Но вполне достаточно сделать вызов один раз. Например, на событии создания формы OnCreate

5) а чем мой вариант не устроил?
вроде простой, надежный и быстрый...