Delphi Randomize

[tanek]

Здараствуйте дорогие форумчанины!
У меня возникла проблема.
У меня есть последовательность цифр от 0 до 4.
Мне нужну из этой последовательность брать рандомно числа. Например:
1 3 0 4 2
Я использовала функцию Randomize и random. Но вот какая проблема. Процедура Randomize генерирует случайную таблицу чисел. Но random может повторять числа которые уже взял, т.е. например: 1 1 0 3 3. Ка мне избавиться от повтора чисел и достичь первого результата?
Очень жду ваших предложений и помощи....
Заранее спасибо!

[DoDge_VipeR]

Очень жду ваших предложений

предложение одно ---> дуйте в поиск по форуму

[tanek]

DoDge_VipeR не ту в поиски.... Там толко как просто сгенерировать, а чтобы делать без повтора нету.....((((

[DoDge_VipeR]

http://programmersforum.ru/showthrea...F2%EE%F0%EE%E2 глазоньки то протрите

[Grag]

А вот еще:Как получить неповторяющиеся случайные числа?

 
procedure Shuffle(var aArray; aItemCount: Integer; aItemSize: Integer); 
{ after Julian M Bucknall } 
var 
Inx: Integer; 
RandInx: Integer; 
SwapItem: PByteArray; 
A: TByteArray absolute aArray; 
begin 
if (aItemCount > 1) then 
begin 
   GetMem(SwapItem, aItemSize); 
   try 
     for Inx := 0 to (aItemCount - 2) do 
     begin 
       RandInx := Random(aItemCount - Inx); 
       Move(A[Inx * aItemSize], SwapItem^, aItemSize); 
       Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize); 
       Move(SwapItem^, A[RandInx * aItemSize], aItemSize); 
     end; 
   finally 
     FreeMem(SwapItem, aItemSize); 
   end; 
end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
a: array[1..10] of Integer; 
i: Shortint; 
begin 
Randomize; 
for i := Low(a) to High(a) do a[i] := i; 
Shuffle(a, High(a), SizeOf(Integer)); 
for i := 1 to High(a) - 1 do 
   ListBox1.Items.Add(IntToStr(a[i])); 
end;

[tanek]

Grag я была бы вам очень признательна, если бы вы мне подсказали как сделать для двумерного прямоугольного массива))))))......