[hackteam]

Здравствуйте, можно ли генерировать рандомное число и при повторе процедуры что бы число не повторялось ?

Код:

i:=random(5);
if (i<>0) and (i=1) and (i<>2) and (i<>3) and (i<>4) and (i<>5)then
RadioGroup1.Visible:=true;

Вот у меня рандом осушиствлён таким образом. Спасибо за внимание

[angvelem]

Можно так:

Код:

  I := Random(5);
  repeat
    J := Random(5);
  until I <> J;

[hackteam]

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

Можно так:

Код:

  I := Random(5);
  repeat
    J := Random(5);
  until I <> J;

Только что попробовал, не работает

[angvelem]

Это только набросок, остальное за тобой. Ты привёл не код а бредятину, я взамен только часть кода.

[@Rafa3L]

Все работает

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
randomize;j:=0;I := Random(5);
memo1.Lines.add(inttostr(i));
  repeat
    J := Random(5);memo1.Lines.add(inttostr(j));
  until I <> J;
end; 


[Konrad]

hackteam

Скажи спасибо что хоть код за тебя пишут.

Могли бы сразу в работу послать.