Рандомное слайдшоу

[tetris]

Delphi
Есть N JPG картинок загруженных в Лист.
Запускаем режим слайдшоу. Выбираем по одной картинке.
Когда перебираем последовательно - все просто.
Как сделать рандомный выбор картинки без повторов.
Присваивать каждой картинке переменную? А если N=500...?
Может есть более хитрый способ исключить из результата "уже использованные"?
(Удалять "уже использованные" из листа не получится он чистится только весь)

[ViktorR]

Например:
A)
1. Получить кол-во картинок: N
2. Создать массив размера N и заполнить его по порядку: 1, 2, 3, ..., N
3. Перемешать массив: shuffle(). Необходимую библиотеку можно найти (возможно, что она уже есть, например, в Python, C++).
4. Последовательно просматриваем новый массив и воспроизводим картинку в соответствии с получаемым номером.

B)
Можно создать строковый массив с именами файлов, а потом его перемешать - shuffle().

C)
1. Можно перемешивать массив после каждого проигрывания всех картинок.
2. Перемешивать оставшуюся часть после проигрывания 5, 10 или некоторого другого кол-ва картинок.

PS: Не заметил про Delphi
Вот решение от Нейро:

program ShuffleArrayDemo;
{$APPTYPE CONSOLE}
uses SysUtils, Math;

procedure ShuffleArray(var A: array of Integer);
var i, j, temp: Integer;
begin
  Randomize;
  for i := High(A) downto Low(A) do
  begin
    j := Random(i + 1);
    temp := A[i];
    A[i] := A[j];
    A[j] := temp;
  end;
end;

var A: array of Integer; i: Integer;
begin
  SetLength(A, 10);
  for i := Low(A) to High(A) do A[i] := i;
  Writeln('Original array:');
  for i := Low(A) to High(A) do Write(A[i], ' ');
  Writeln;
  ShuffleArray(A);
  Writeln( 'Shuffled array:');
  for i := Low(A) to High(A) do Write(A[i], ' ');
  Writeln;
end.

Другой источник:

procedure FastPermuteArray(A: TDynIntegerArray);
  procedure Swap(n, m: integer);
  var
    tmp: integer;
  begin
    tmp := A[n];
    A[n] := A[m];
    A[m] := tmp;
  end;
var
  i: Integer;
begin
  for i := High(A) downto 1 do
    Swap(i, RandomRange(0, i));
end;

[tetris]

Да, про RandomRange я уже читал тут, там все не так однозначно.

[ViktorR]

Да, про RandomRange я уже читал тут, там все не так однозначно.

А по конкретнее можно?