Снова о массиве

[Constellation]

Каким образом можно сформировать массив неповторяющихся чисел, используя значения из другого массива?

[WOLFak]

или как random - ом сделать массив неповторяющихся чисел????
мне тоже надо

[Format C:]

Делал так:

Procedure TMainForm.NewShuffle;
Var
  I, Tmp: Integer;
  A: Array Of Boolean;
begin
  ShuffleList.Clear;
  SetLength(A, SetForm.FileList.Count);
  Randomize;

  For I:=0 To SetForm.FileList.Count-1 Do
    A[I]:=False;

  I:=0;
  Repeat
    Tmp:=Random(SetForm.FileList.Count);
    If Not A[Tmp] Then
    Begin
      A[Tmp]:=True;
      ShuffleList.Items.Add(IntToStr(Tmp+1));
      Inc(I);
    End;
  Until I=SetForm.FileList.Count;

  ShuffleList.ItemIndex:=0;
End;

Function TMainForm.PrevShuffle: Integer;
Begin
  If ShuffleList.ItemIndex>0 Then
  Begin
    ShuffleList.ItemIndex:=ShuffleList.ItemIndex-1;
    Result:=StrToInt(ShuffleList.Items.Strings[ShuffleList.ItemIndex]);
  End
  Else
  Begin
    NewShuffle;
    ShuffleList.ItemIndex:=ShuffleList.Count-1;
    Result:=StrToInt(ShuffleList.Items.Strings[ShuffleList.ItemIndex]);
  End;
End;

Function TMainForm.NextShuffle: Integer;
Begin
  If ShuffleList.ItemIndex+1<ShuffleList.Count Then
  Begin
    ShuffleList.ItemIndex:=ShuffleList.ItemIndex+1;
    Result:=StrToInt(ShuffleList.Items.Strings[ShuffleList.ItemIndex]);
  End
  Else
  Begin
    NewShuffle;
    Result:=0;
  End;
End;

Пояснения:
ShuffleList -ListBox на форме
SetForm.FileList - Отсюда берётся нужое чило значений
Функция PrevShuffle и NextShuffle возвращает предыдущее или следующее числао из списка, а если список исчерпан, то создают новый.