Генерирование

[Патрон]

Подскажите пожалуйста как сделать генерацию чисел, по нажатии кнопки "Generate"?

[Dj_smart]

Так:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=random(65535); // генерация (65535- мах)
  edit1.Text:=inttostr(a); // поставь Readonly в true
end;

[Патрон]

Спасибо большое

[Патрон]

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

Да незачто

кстати, а что значит "a"?

[Viteef]

var a:integer;

[SunKnight]

var AA:array [0..10] of Integer;i,x:integer;
begin
AA[0]:=12345;
AA[1]:=12321;
....
AA[10]:=1455;
i:=random(10);
x:=AA[i];
end;

Люди учите мат часть.

[Makarov]

Заполнить массив:

 
for i:=1 to 10  do
begin
  randomize;
  a[i]:=random(65535);{массив значений}
end;

Выбор значения:

  n:=random(10);
  writeln(a[n]);

[SunKnight]

var AA:array [0..6] of Integer;i,x:integer;
begin
AA[0]:=12345;
AA[1]:=12321;
AA[2]:=34344;
AA[3]:=54355;
AA[4]:=34577;
AA[5]:=54563;
AA[6]:=68767;
i:=random(6);
x:=AA[i];
Button1.Caption:=inttostr(x)+'   '+inttostr(i);

все работает. рандом просто может повторять одно и то же значение несколько раз подряд.