Случайные числа

[severin]

Подскажите пожалуйста, на форме есть 31 Edit нужно заполнить их поля редактирования двухзначными, случайными, отличными друг от друга числами, как это сделать?

[evg_m]

ar: array[0..99] of integer;

for j:=0 to 99 do ar[j]:=j;//сгенерируем числа от 0 до 99

for j:=0 to 99 do 
begin
   k:=random(99);
   a:=ar[j];
   ar[j]:=ar[k];
   ar[k]:=a;
end;// перемешаем числа

for j:=0 to 30 do
begin
   s:=format('edit%d',[j]);
   t:=findcomponent(s);
   Tedit(t).text:=inttostr(ar[j]);
end;// заполним edit s первыми 31 из перемешанных

[severin]

Спасибо буду пробовать

все работает только мне нужно чтобы выводилось число в формате 09 если оно однозначное и одно из чисел почему то 3936213 выпадает

[Serge_Bliznykov]

Супер! Кратко и по существу!
единственно, я подозреваю, что Edit'ы пронумерованы от 1 до 31..
поэтому правильнее будет так:

for j:=1 to 31 do

[severin]

ну это я сразу изменил, а откуда это число? причем оно всегда припервой генерации выпадает в первом Edite

[Serge_Bliznykov]

чтобы выводилось число в формате 09

замените код Tedit(t).text:=inttostr(ar[j]);
на код:

Tedit(t).text:= Format('%.2d',[ar[j]]);

ну это я сразу изменил, а откуда это число? причем оно всегда припервой генерации выпадает в первом Edite

приведите Ваш код полностью!

число всегда одно и то же?
кстати, не забываете в начале программы иницилизировать генератор сл.чисел?

Randomize;

[severin]

procedure TForm1.Button1Click(Sender: TObject);
var

ar: array[0..99] of integer;
j,a,k:integer;
s:string;
t:TComponent;
begin

 for j:=10 to 99 do ar[j]:=j;//сгенерируем числа от 0 до 99

for j:=1 to 89 do
begin
   k:=random(99);
   a:=ar[j];
   ar[j]:=ar[k];
   ar[k]:=a;
end;// перемешаем числа

for j:=1 to 31 do
begin
   s:=format('edit%d',[j]);
   t:=findcomponent(s);
   Tedit(t).text:=inttostr(ar[j]);
end;// заполним edit s первыми 31 из перемешанных  }
end;


end.

Забыл про Randomize совсем, спаибо все работает

[Serge_Bliznykov]

for j:=10 to 99 do ar[j]:=j

категорически не согласен!!
почему цикл от 10 ?!?!?!?!

[TREY]

Извините за выражения, но всё что вы написали Г.Проверял сам, и нихрена оно не работает - раз через 3.
Вот 100% рабочий код:

procedure MassRand(range: integer; var inputMass: array of integer);
var
  i: integer;
  bm: array of boolean; 
  или нет
begin
  SetLength(bm, length(inputMass));
  for i := 0 to length(inputMass) - 1 do
  begin
    inputMass[i] := Unic(bm, range) + 1; //для последовательности 1,2, ... , N
    //inputMass[i]:=Unic(bm,range);//для последовательности 0,1, ... , N
  end;
end;

function Unic(var flag: array of boolean; range: integer): integer;
begin
  {данная функция возвращает одно случайное число}
  result := random(range);
  while flag[result] do
    result := random(range); //ищем какого числа еще нет
  flag[result] := true; //это чтобы не было повторений
end;
Пример использования: 

// Использовать можно по разному, например:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
  mass: array of integer; //массив над которым будем извращаться
begin
  Memo1.Lines.Clear; //сюда выведем результат
  SetLength(mass, strtoint(Edit1.Text)); //тут получим размерность массива
  MassRand(strtoint(Edit1.Text), mass); //соответственно поимели процедуру
  for i := 0 to length(mass) - 1 do
  begin
    Memo1.Lines.Add(inttostr(mass[i])); //отобразили пользователю результат
  end;
end;