Делфи, вывод в мемо случайных чисел без повторов из массива. массив от 1 до 35.
Всем привет, хочу вывести в мемо случайные числа без повторов от 1 до 35. Как это реализовать?
Вот мой код:
procedure TForm1.Button1Click(Sender: TObject);
var
a : array [1..35] of integer;
i, newPos, tmpA:integer;
begin
for i:=1 to 35 do a:=35 + i;
Randomize;
for i:=1 to 5 do begin
newPos := Random (10);
tmpA:= a[newPos];
a[newPos]:=a;
a:=tmpA;
memo1.Lines.Add(inttostr(tmpA));
end;
Выводится но значение выше 35... Код не мой, брал с какого то форума, пытался править под себя..