Перемешать строки

[Kronos913]

Задача - перемещать строки
Вопрос: есть ли лучше алгоритм? Может, более прямой

Procedure RandomList(ss_In, ss_Out:TStrings);
var
  i, j:integer;
begin
  ss_Out.Clear;
  j:=ss_in.Count;
  If j=0 then exit;

  dec(j);
  ss_out.Add(ss_in[j]);

  while j>0 do begin
    i:=Random(ss_out.Count+1);
    dec(j);
    If i=0 then begin
      ss_out.Add(ss_in[j]);
    end else begin
      dec(i);
      ss_out.Insert(i, ss_in[j]);
    end;

  end;
end;

[BDA]

Отсюда:

procedure Shuffle(Strings: TStrings);
var
  i: Integer;
begin
  for i := Strings.Count - 1 downto 1 do 
    Strings.Exchange(i, Random(i + 1));
end;

[Kronos913]

А цикл For не выдаст ошибку если зайдёт лист на 0 или 1 строку?

[BDA]

Ошибок не будет, тело цикла просто ни разу не выполнится.

[northener]

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

А цикл For не выдаст ошибку

Сам по себе цикл For ошибок не выдает никогда.

[Kronos913]

То есть, получается нет необходимости строить "защиту", делая цикл через while и изменением счётчика внутри цикла?

i:=Strings.Count;
while i>1 do begin
  dec(i);
  Strings.Exchange(i, Random(i + 1));
end;

[northener]

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

То есть, получается нет необходимости строить "защиту", делая цикл через while и изменением счётчика внутри цикла?

Нет.