Заполнение массива случайными числами

[Roomper]

Вообщем, столкнулся с одной проблемой. Необходимо заполнить массив различными неповторяющимися значениями. Я написал код, но явно что-то упустил. Вот он:

for f := 0 to 14 do
begin
      r[f] := random(14);
      for j := 1 to f-1 do
      begin
        if r[f] = r[j] then
        begin
          while r[f] = r[j] do  r[f] := random(14);
        end;
      end;
end;

Подскажите, в чем я ошибся или представьте свое решение (с комментариями)

[Air]

перед циклом поставь Randomize;

P.S.Не что-то не работает...

[Xardas]

Вот здесь обсуждалось это (выбор случайным образом неповторяющихся значений из некоторого диапазона).

[Roomper]

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

перед циклом поставь Randomize;
А вообще можно проще.

for f := 0 to 14 do  
 begin
  S:=random(14);
  for j:=0 to Length(r) do
   if s <> r[j] then r[j]:=s;
 end;

Написал от руки, но смысл такой же.

Ну, рандомайз это естесственно прописывал, просто в коде не показал.
А этот способ рассмотрю, выглядет проще и понятнее чем у меня

[Air]

я его тестировал - не катит
Переделал.

procedure TForm1.Button1Click(Sender: TObject);
Label 1;
var r:array[0..14] of integer; Add,i,j,s:integer; No:boolean;
begin
randomize;
for j:=0 to Length(r) do
r[j]:=-1;
add:=0;
save:=0;
for j := 0 to 14 do
 begin
1:
  S:=random(255);
  for i:=0 to Length(r) do
   if s = r[i] then
    goto 1
   else
    No:=true;
  if no then
   begin
    r[add]:=s;
    add:=add+1;
   end;
 end;

for j:=0 to Length(r) do
label1.Caption:=label1.Caption+inttostr(r[j]);
end;

Оказался длиннее.