Random без повторений!

[JACUK]

Вот например такой кусочек кода
Randomize;
r:=random(9)+1;
как сделать так чтобы когда вызываеш строчку с непосредственным рандомом девят раз(например в цикле), то r ни разу не повторился?!

[baton4ik]

Делай каждый раз проверку, не равен ли результат какому-либо из уже полученных и, если равен, вызывай ещё раз

[JACUK]

пробовал! и в масив запихивать и создавать строку, а из нее масив и проверять-нивкакую! напиши если не трудно примерчик!

[impersonalis]

возможно это:
http://forum.boolean.name/showthread.php?t=12687
для числовго массива возвращемых занчений

[baton4ik]

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

пробовал! и в масив запихивать и создавать строку, а из нее масив и проверять-нивкакую! напиши если не трудно примерчик!

На дельфи не программирую. Просмотри код, у тебя где-то какая-то ошибка. Может перепутал какое-то название. Вот абстрактно:

var digits:array of integer;
i:integer;
r,t:integer;
variable:boolean;

{...}

For i=1 to i=9 do
begin
Repeat
variable:=false;
r:=random(9)+1;
for t=1 to 9 do if r=digits[t] then varialbe:=true
Until variable=false
digits[i]:=r;
end;